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Editorial 



RESPUESTA POSITIVA 



El mes pasado anunciábamos a nuestros lectores la 
reducción de precios de los videojuegos. Ahora, en 
el presente número, ya tenemos algunos elementos 
para hacer balance, bien que provisional y de urgen- 
cia, sobre las consecuencias directas que tal medida 
ha tenido, y se puede pensar que tendrá, sobre esta 
franja del mercado de software. 

No decimos nada nuevo si constatamos que, del 
lado de la producción y la distribución, el apoyo que 
recibió la reducción de precios no estaba exento de 
cierto desasosiego respecto del rumbo definitivo que 
tomarían los acontecimientos. Tal recelo se justifi- 
caba por el temor a que el descenso de precios, y del 
margen comercial, no fuera contrarrestado por el 
crecimiento del mercado. 

También cabía esperar una cierta reserva psicoló- 



gica de parte de los usuarios, habituados a valorar la 
calidad de los programas en función de su precio. 

A nuestro juicio y teniendo siempre en cuenta las 
limitaciones de perspectiva que mencionábamos an- 
tes, los primeros efectos han sido de tono claramente 
positivo: tanto las empresas como los compradores 
han asimilado la nueva tarifa. 

Sin duda era necesario que los videojuegos se ofre- 
cieran en el mercado a un precio que resultara justo 
para el comprador, a la vez que asimilable a su poder 
adquisitivo. 

Esta era una necesidad impostergable si se quería 
crear un mercado estructurado e integrado en el que 
nadie tuviera conciencia de ser inadecuadamente tra- 
tado. El pasado mes se dio un paso muy importante 
en ese sentido. 



LOS MEJORES DE INPUT 

Hemos pensado que es interesante disponer de un ranking que El resultado de las votaciones será publicado en cada número 
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En este número de la revista vamos a 
empezar una serie de artículos destina- 
dos a desvelar los secretos que encie- 
rran, bajo sus teclados, nuestros mi- 
croordenadores. 

Se trata de explicar de una forma lo 
más clara posible y sin muchos tecni- 
cismos, todo lo referente al hardware 
de los microordenadores de la gama 
Commodore: el C-64 y el C-128. 

Es posible que la mayoría de voso- 
tros hayáis oído hablar más de una vez 
de programas hechos en código má- 
quina, de sus prestaciones en cuanto a 
velocidad respecto al conocido BA- 
SIC, y también es posible que más de 
uno de vosotros haya pensado en rea- 
lizar algunos programas pero os en- 
contráis con una falta de información 
sobre el tema. 

Esta serie de artículos está pensada 
para poder conocer todas las particu- 
laridades de estos microordenadores 
desde el punto de vista del hardware. 
Para ello habrá unas partes comunes a 
las dos unidades de COMMODORE 
antes citadas y por otra parte habrá 
una atención especial a cada una de 
ellas. 



LOS TEMAS 

En primer lugar repasaremos un 
poco el origen de los ordenadores y los 
microordenadores para seguir con una 
descripción de las unidades físicas más 
usadas en el manejo del hardware, así 
como un estudio de los componentes 
electrónicos que intervendrán poste- 
riormente en el análisis de funciona- 
miento de cada microordenador. 

Posteriormente haremos una des- 
cripción de los términos más usuales 
con que nos encontraremos, para en- 
trar de lleno en materia. 

Empezaremos primero con una des- 



cripción del tipo de información que 
manejan los microordenadores, se- 
guirá una descripción general por blo- 
ques de un microordenador básico. 

Desde este punto empezaremos por 
hacer distinciones entre un tipo de mi- 
croordenador u otro. 

El estudio de cada modelo en par- 
ticular nos llevará a estudiar, por se- 
parado, tanto la CPU como sus com- 
ponentes especiales y su esquema 
eléctrico. 

Más adelante seguiremos con los 
equipos periféricos más usuales tales 
como unidad de cinta (cassette) y uni- 
dades de discos (disquettes o floppys). 

Todo ello permitirá un conoci- 
miento bastante extenso del ordena- 
dor que tenemos en nuestras manos. 

Después de la descripción del hard- 
ware pasaremos a las rutinas en len- 
guaje máquina que llevan incorpora- 
dos los ordenadores y que son las que 



permiten el que podamos trabajar con 
ellos. 



UN POCO DE HISTORIA 

Muchos de vosotros os habréis pre- 
guntado algunas veces cuáles han sido 
los inicios de los microordenadores y 
el porqué de su aparición; pues bien, 
hagamos un poco de historia. 

El origen de la informática se re- 
monta a finales del siglo xix cuando se 
intenta mecanizar el sistema del censo 
de la población en Estados Unidos 
aprovechando la idea del francés Jac- 
quard en la automatización de unos te- 
lares. El sistema consistía en poder 
cambiar el dibujo de los tejidos gracias 
a la información almacenada en unas 
tarjetas perforadas, las cuales eran leí- 
das en el momento de realizar el tra- 
bajo. La forma de almacenar infor- 
mación en unas tarjetas de papel y po- 
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der ser leídas, en aquel entonces por 
elementos mecánicos, planteó la idea 
de automatizar ciertos procesos que 
hasta aquel momento se habían reali- 
zado de forma totalmente manual. 
Así, en el cálculo del censo ameri- 
cano, la automatización consiguió re- 
bajar drásticamente el período de pro- 
ceso de datos. 

A principios de siglo, la electrónica 
empezó a tomar un cierto auge y se 
empezaron a construir las primeras 
válvulas. Con estos elementos activos 
se empezaron a construir los primeros 
equipos electrónicos, con unos mon- 
tajes bastante voluminosos y con un 
desprendimiento de calor muy consi- 
derable. La necesidad que tenía tanto 
la Industria como el Ejército en cons- 
truir máquinas que fuesen capaces de 
hacer cálculos matemáticos así como 
que pudieran procesar gran cantidad 
de datos en poco tiempo, les llevó a 
construir ordenadores, aunque esto 
supusiera el llenar grandes salas para 
llegar a conseguir una ínfima parte de 
lo que hoy se consigue con cualquier 
microordenador. 

Posteriormente se fueron descu- 
briendo nuevos componentes electró- 
nicos y apareció el transistor. Esto 
abrió unos horizontes más amplios ya 
que los circuitos electrónicos queda- 
ban muy reducidos y con una disipa- 
ción de calor también inferior. 

Esto trajo consigo una reducción en 
el tamaño de los ordenadores y por 
tanto se empezó a buscar nuevas po- 
sibilidades tanto en velocidad de cál- 
culo como en capacidad de memoria y 
en facilidad de programación. 

Pero la técnica siguió avanzando y 
empezaron a construirse unos com- 
ponentes complejos, los cuales alber- 
gaban en su interior y con unas di- 
mensiones más reducidas, una serie de 
circuitos electrónicos que realizaban 
unas funciones muy concretas. Había 
aparecido el circuito integrado (chip). 

Al principio estos circuitos integra- 
dos estaban formados por pocos com- 
ponentes, lo que constituía una pe- 
queña escala de integración. Poste- 
riormente, los circuitos integrados 
fueron ganando en complejidad hasta 
llegar a una escala de integración me- 
dia. Esto permitió, en los años 60, rea- 



lizar unos ordenadores bastante com- 
pactos y con unas capacidades de pro- 
ceso francamente elevadas. 

Hasta aquí hemos visto de forma 
muy rápida cómo han ido evolucio- 
nando los grandes ordenadores, pero 
¿cuándo entran en juego los microor- 
denadores? Pues bien, el proceso de 
integración aumentó muchísimo en los 
últimos años y se consiguió introducir 
dentro de un chip todos los circuitos 
que constituían la unidad central de 
proceso de los grandes ordenadores. 
Esto acaeció en el año 1971 cuando la 
empresa Intel decidió sacar al mer- 
cado el primer microprocesador, el 
modelo 4004, que era capaz de ma- 
nejar palabras de 4 bits. 

Posteriormente fueron apareciendo 
otros modelos tales como el 8008, el 



8080 y el 8085 de Intel, el 6502 de 
Rockwell, el 6800 de Motorola y el 
Z80 de Zilog, los cuales han dado un 
gran impulso en el desarrollo de la in- 
formática. Todos estos microprocesa- 
dores son capaces de manejar palabras 
de 8 bits. 

Muy recientemente han aparecido 
una serie de microprocesadores capa- 
ces de manejar palabras de 16 y 32 
bits, tales como el 8088, el 8086, el 
80186, el 80286 y el 80386 de Intel; el 
68000, el 68010 y el 68020 de Moto- 
rola; el Z8000 y el Z80000 de Zilog y 
otros más. 

La industria no se ha quedado atrás 
en la utilización de los microprocesa- 
dores. En los inicios de la electrónica, 
para realizar un equipo con circuitos 
electrónicos, era necesario realizar un 
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diseño especial para cada aplicación. 
Esto llevaba consigo un elevado coste 
de fabricación, un tiempo de diseño 
del circuito apreciable y, lo más im- 
portante, una rigidez total y absoluta 
respecto a posibles cambios o modifi- 
caciones de los equipos. Esto es lo que 
se llama sistemas de lógica cableada. 

Estos sistemas aún se utilizan en 
muchas aplicaciones pero, cada vez 
más, se intenta huir de unas estructu- 
ras rígidas. 

Para evitar estos problemas, se 
pensó en hacer una serie de circuitos 
electrónicos con lógica cableada pero 
que fueran más versátiles; es decir, 
que de alguna manera les fuera posi- 
ble el poder cambiar la aplicación de 
una forma bastante fácil. Este papel 
ha sido muy bien asumido por los mi- 




croprocesadores, los cuales de una 
forma muy rápida y precisa realizan 
las operaciones que les han progra- 
mado. 

Actualmente es bastante difícil con- 
cebir un diseño electrónico sin que 
aparezcan uno o varios microproce- 
sadores trabajando simultáneamente. 



CONCEPTOS BASICOS 

Antes de proseguir con un nivel más 
detallado del hardware de nuestros 
microordenadores, creemos necesario 
repasar algunos conceptos básicos de 
electrónica que nos permitirán avan- 
zar progresivamente en este difícil ca- 
mino del hardware. La descripción de 
estos conceptos será enfocada de una 
forma práctica, sin pretender dar un 
curso completo de electrónica o física, 
de forma que si alguno de vosotros de- 
sea experimentar con el microorde- 
nador, sepa qué es cada elemento y la 
función que realiza. 

En primer lugar empezaremos con 
la descripción de las unidades físicas 
que nos encontraremos al describir los 
microordenadores para seguir con una 
descripción básica de los componentes 
que los forman. 



UNIDADES DE TIEMPO 

Empezaremos por definir las uni- 
dades de tiempo que usaremos nor- 
malmente. La unidad básica de 
tiempo es el segundo y como submúl- 
tiplos de él tenemos: el milisegundo (1 
ms=10'— 3 seg.), el microsegundo (1 
us=10"-6 seg.) y el nanosegundo (1 
ns=10 A — 9 seg.). Las fórmulas de equi- 
valencia pueden verse en la tabla ad- 
junta donde la unidad buscada está en 
la columna de la izquierda y su equi- 
valente en la casilla correspondiente. 



CORRIENTE ELECTRICA 

La corriente eléctrica que pasa por 
un conductor está producida por el 
desplazamiento de los electrones en su 
interior. Para que exista circulación de 
electrones por un conductor es nece- 
sario que entre sus extremos se apli- 
que una diferencia de potencial, es de- 
cir, en un extremo del conductor co- 



locaremos un material con exceso de 
electrones y en el otro lado, coloca- 
remos otro material con escasez de los 
mismos. Al unirlos habrá una circu- 
lación de electrones del extremo 
donde estaban en exceso hasta el otro 
extremo. 

La densidad de electrones que cir- 
culan se denomina intensidad de la co- 
rriente eléctrica. Si esta corriente 
siempre tiene la misma intensidad y 
además siempre va en la misma direc- 
ción, diremos que la corriente es con- 
tinua. Por otro lado, si la intensidad 
varía con el tiempo y cambia de direc- 
ción alternativamente, diremos que la 
corriente es alterna. 

La unidad de medida de la corriente 
eléctrica es el Amperio (1 A, 1 Amp.) 
y como submúltiplos usaremos el mi- 
liamperio (1 mA=lCT— 3 Amp.), el 
microamperio (1 uA=10~ — 6 Amp.) y 
el nanoamperio (1 nA=10"— 9 Amp.). 

Una representación gráfica de la co- 
rriente eléctrica puede verse en la fi- 
gura 2, donde el eje de coordenadas 
horizontal expresa unidades de 
tiempo; por encima de este eje hori- 
zontal se expresan los valores de co- 
rriente positivos, y por debajo del 
mismo se expresan los valores negati- 
vos de la misma. En el caso de la fi- 
gura 2a representamos una corriente 
continua, ya que no varía con el 
tiempo, y en la figura 2b podemos ver 
la representación de un tipo de co- 
rriente alterna, cuya forma de onda se 
llama senoidal. (En las figuras 2c y 2d 
pueden verse las formas de onda trian- 
gular y cuadrada.) 



TENSION CONTINUA Y ALTERNA 

Al describir lo que era la corriente 
eléctrica hemos dicho que era nece- 
sario disponer de una fuente de elec- 
trones capaz de poder mantener un su- 
ministro de los mismos. La unidad de 
medida de la diferencia de potencial o 
tensión es el voltio y los submúltiplos 
más empleados son: el milivoltio 
(lmV = 10"— 3 voltios) y el microvol- 
tio (1 uV = 10" -6 voltios). Al igual 
que en la corriente eléctrica, existen 
dos tipos de tensión: la tensión conti- 
nua y la tensión alterna. 

La tensión continua es aquella que 
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permanece constante a lo largo del 
tiempo, es decir, siempre tiene el 
mismo valor. (Ver fig. 3a.) 

La tensión alterna es aquella que su 
magnitud depende del tiempo. Exis- 
ten diferentes formas de onda pero las 
que más se utilizan son: senoidal, 
triangular y cuadrada. (Ver figs. 3b, 3c 

y 3d.) 



LEY DE OHM 

La potencia es el consumo de ener- 
gía por unidad de tiempo. La unidad 
de medida es el vatio (1 W) y el sub- 
múltiplo más utilizado es el milivatio 
(1 mW = 10"— 3 W). Generalmente 
trataremos de potencia disipada por 
una resistencia o potencia entregada 
por una fuente de alimentación. 

Las tres unidades: intensidad, ten- 
sión y potencia, están relacionadas 
mediante la ley de Ohm de la siguiente 
forma: 

1 Amp = 1 voltio/1 ohmio 
1 vatio = 1 voltio * 1 amp 

Con estas fórmulas y sus derivados 
podemos obtener cualquier valor co- 
nociendo los demás. 

Una de las características de las se- 
ñales alternas es que su amplitud varía 
con el tiempo. La frecuencia de una 
señal alterna es el número de veces 
que dicha señal repite su forma por 
unidad de tiempo. La unidad de me- 
dida es el hertzio (Hz), o bien, ciclos 
por segundo (c/s). Normalmente se 
usan los múltiplos del hertzio y éstos 



son: el kilohertz (1 KHz = 10"3 Hz), 
el megahertz (1 MHz = 1CT6 Hz) y el 
gigahertz (1 GHz = 10"9 Hz). 

Existe una correspondencia entre el 
período de una señal alterna y su fre- 
cuencia. La fórmula de conversión es: 

frecuencia = l/(período) 

La tabla 4 nos muestra una conver- 
sión rápida. 

Debe tenerse en cuenta que la ten- 
sión continua es un caso particular de 
la tensión alterna, donde la frecuencia 
es cero. 



RESISTENCIA 

Resistencia es la dificultad que 
ofrece un elemento al paso de la co- 
rriente eléctrica. La unidad de medida 
es el ohmio y los múltiplos usados nor- 
malmente son: el kiloohm (1 K@ = 
10*3 ohms) y el megohm (1 M@ = 
10"6 ohms). 

Existen unos componentes electró- 
nicos dedicados a limitar la corriente 
eléctrica que se llaman resistencias. 
Estas pueden dividirse en dos tipos: 
las resistencias fijas y las ajustables. 
Las primeras son elementos de 2 ter- 
minales que tienen un valor fijo y las 
segundas son las que ofrecen la posi- 
bilidad de poder ajustar su valor, ge- 
neralmente disponen de 3 terminales. 
Normalmente se les llama potenció- 
metros y se usan para poder conseguir 
un ajuste del circuito. 

Debido a que es un componente 
que se opone al paso de la corriente 
eléctrica (ofrece resistencia) sufre un 
calentamiento debido a la potencia di- 



sipada en ella. Generalmente, en el in- 
terior de los microordenadores, en- 
contraremos resistencias de valores 
elevados (algunos K@) y de baja di- 
sipación de potencia. 

El valor de las resistencias de ele- 
vada potencia normalmente viene es- 
crito en el mismo cuerpo del compo- 
nente mientras que el valor de las re- 
sistencias de baja potencia viene de- 
terminado por unas franjas de colores 
en el cuerpo de las mismas y de 
acuerdo con la tabla 5. 



CONDENSADORES 

Un condensador es un elemento ca- 
paz de almacenar energía y de cederla 
posteriormente. 

Para medir esta capacidad de al- 
macenamiento de energía se usa como 
unidad el faradio. Esta unidad es muy 
elevada y normalmente se usan sus 
submúltiplos, que son: el microfaradio 
(1 uF = 10"— 6 F), el nanofaradio (1 
nF = 10"— 9 F) y el picofaradio (1 
pF = 10"— 12 F). 

Existen varios tipos de condensa- 
dores dependiendo del lugar donde es- 
tén conectados. Para grandes capaci- 
dades tenemos los condensadores 
electrolíticos y los de tantalio. Estos se 
usan en circuitos de baja frecuencia. 

Para capacidades inferiores pode- 
mos encontrar los de poliéster, los ce- 
rámicos, policarbonatos y los de mica. 
Estos normalmente se usan en circui- 
tos de alta frecuencia. 

Al igual que las resistencias, los 
condensadores también se dividen en 
fijos y en ajustables. Los primeros po- 
seen una capacidad fija y los segundos 
es posible ajustar su capacidad dentro 
de unos límites. A estos condensado- 
res normalmente se les llama trimmers 
y poseen capacidades muy bajas, del 
orden de pocos centenares de picofa- 
radios. 

Se emplean normalmente en circui- 
tos osciladores o en circuitos resonan- 
tes donde es necesario realizar algún 
ajuste. 

El valor de los condensadores de 
pequeña capacidad viene indicado en 
el cuerpo de los mismos mediante 
unas franjas de colores de acuerdo con 
la tabla 6. 



NO OLVIDES EL TELEFONO... © 

Cuando, por cualquier motivo, nos escribas, no 
olvides indicar tu número de teléfono. Así nos será más 
fácil y rápido ponernos en contacto contigo. Gracias. 
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Aplicaciones 



VIDEO 
COMPUTER 



Estamos seguros de que muchos de 
vosotros compartís la afición del orde- 
nador con el vídeo; pues bien, este pro- 
grama va dirigido a llevar de la mano 
ambos hobbies. 

El programa en cuestión os sacará 
en muchas ocasiones de apuros que se- 
rían de difícil solución si no poseéis 
VIDEO COMPUTER. ¿Cuántas ve- 
ces os habréis preguntado cuántas pe- 
lículas habéis visto y el dinero que os 
ha supuesto? Pues bien, el listado que 
en esta ocasión os invitamos a «te- 
clear» pondrá fin a vuestras dudas, ya 
que de una manera rápida y sencilla 
podréis acceder a una extensa gama de 
opciones, en relación al tema que hoy 
nos ocupa. 

Este programa, tal como os lo ofre- 
cemos, funciona únicamente en disco, 
pero si alguno de vosotros sólo dis- 
pone de cassette, no le será difícil 
adaptarlo, ya que está estructurado 
por medio de rutinas y subrutinas que 
hacen que las modificaciones no sean 
complicadas. 



FUNCIONAMIENTO DEL 
PROGRAMA 

Las películas que introduzcamos se- 
rán grabadas en el disco a través de un 
fichero directo, que aparecerá en 
nuestro directorio con el nombre de 
VIDEO CBM, esta operación se rea- 
liza de las líneas 59990-60014. Las lí- 
neas 50000-50009 se encargan de la 
lectura de los datos. Las variables en- 
cargadas de acumularlos son: N, V, F, 
P. C. todas ellas alfanuméricas y di- 
mensionadas hasta 1000. 

Al ejecutar el programa el primer 
mensaje que nos aparecerá en pantalla 
será, «ORDENANDO...», el cual nos 
indica que el ordenador está, por me- 
dio de DATAS (líneas 78-99 excepto 
la 81 que analizaremos más adelante), 
introduciendo en su memoria una ru- 



tina en código máquina que nos or- 
denará alfabéticamente todos los da- 
tos, ganando así gran cantidad de 
tiempo. 

El siguiente mensaje será «CAR- 
GANDO...», que nos avisa que en ese 
momento se están cargando los datos 
que anteriormente han sido grabados, 
en caso de que el fichero no haya sido 
creado, puesto que será la primera vez 
que hagamos funcionar el programa, 
el LED encargado de dar error en la, 
unidad de disco p_arriadeará_pero_eL 
programa ^ulíc7onar á_CCTTectamente. 
Lalíriea que realiza esta operación es 
la anteriormente nombrada, 81. 



EL MENU PASO A PASO 

Siete son las opciones de que dis- 
ponemos, y a las que se accede pul- 
sando la letra que está a su izquierda. 
Pulsando la letra A accederemos a la 
introducción de los datos (líneas 410- 
620), que se realiza por medio de 
INPUT. Una vez introducidos todos 
los datos que nos pida el ordenador 
grabará la ficha en el disco. 

Otra opción del menú es búsqueda 
por meses, que como su nombre in- 
dica, nos dirá las películas que hemos 
visto en un mes determinado. Para se- 
leccionar el mes a consultar dispones 
de las teclas Fl y F3, líneas 630-1090. 

La opción C nos permite saber las 
películas que hemos alquilado en un 
determinado vídeo-club, pudiendo 
cambiar nosotros el nombre de los ví- 
deo-clubs, ya que en principio no so- 
mos todos socios de los mismos (líneas 
490-530 y 1790-1830). Para no teclear, 
siempre que introduzcamos películas, 
el nombre del vídeo, basta con pulsar 
el número del mismo. 

La siguiente opción, búsqueda por 
calidad, nos da un menú en el cual po- 
demos solicitar un listado de las pelí- 
culas, que a nuestro juicio sean malas, 
pasables, buenas, muy buenas y ex- 
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celentes, todas ellas representadas con 
un número de asteriscos equivalente a 
la calidad deseada; su funcionamiento 
es igual al de la anterior opción bas- 
tando pulsar el número deseado. 

La búsqueda alfabética nos ofrece 
una relación de las películas que ha- 
yamos introducido, y que, al contrario 
que la opción F, nos la muestra alfa- 
béticamente. 

Por último tenemos la opción G, fin 
de proceso, que, como su nombre in- 
dica, finaliza todas las operaciones, 
dándonos acceso a borrar todas las pe- 
lículas del fichero, partiendo así de 
cero. 



POKE 53281, 15:P0KE 
53280,15 

1 CLR:DIM N$(1000), 
F$(1000),V$(1000), 
P$(1000),C$(1000), 
W$(1000) 

77 l = 838:PRINT "[SHIFT+CLR/ 
H0ME][ 10*CRSR ABAJ0][ 
11*CRSR DCHA.][CTRL+7] 
ORDENANDO..." 

78 READ A: I F A=256 THEN 
80 

79 POKE I, 

A:I = I + 1:S = S + A:G0T0 

78 

80 READ SU:IF SoSU 
THENPRINT "ERROR EN 
DATAS": EN D 

81 PRINT "[SHIFT+CLR/HOME][ 
10*CRSR ABAJ0][ 11*CRSR 
DCHA.][CTRL+7] 
CARGANDO. ..":G0SUB 
50000:GOTO 100 

82 DATA 32,253,174,32,139, 
176,133,106 

83 DATA 132,107,160,0,177, 
106,240,122 

84 DATA 133,110,200,177, 

INPUT 9 



r 



Aplicaciones 



106,153,110,0 

85 DATA 192,2,208,246,165, 
106,133,108 

86 DATA 165,107,133,109,24, 
165,108,105 

87 DATA 3,133,108,144,2, 
230,109,160 

88 DATA 0,177,108,240,71, 
133,252,197 

89 DATA 110,144,2,165,110, 
133,255,200 

90 DATA 177,108,153,252,0, 
192,2,208 

91 DATA 246,160,0,177,111, 
209,253,240 

92 DATA 4,144,209,176,9, 
200,196,255 

93 DATA 208,241,196,110, 
176,198,160,0 

94 DATA 177,106,170,177, 
108,145,106,153 

95 DATA 110,0,138,145,108, 
200,192,3 

96 DATA 208,238,160,0,177, 
106,133,255 

97 DATA 169,0,240,168,24, 
165,106,105 

98 DATA 3,133,106,144,2, 
230,107,24 

99 DATA 144,128,96,256, 
18719 

100 PRINT "[SHIFT+CLR/ 

HOME]":AZ = 0:CS = 0:CX = 

101 PRINT "[ 11 
ESPACIOS][SHIFT+U] 
[SHIFT+I][SHIFT+U] 
[SHIFT+I] [SHIFT+UH 
2*SHIFT+C][SHIFT+I] 
[SHIFT+U][ 
2*SHIFT+C][SHIFT+I] 
[SHIFT+U][SHIFT+I] 
[SHIFT+U][SHIFT+I][NULL] 
[SHIFT+R][11][SHIFT+F] 
[NULLHCOMM + 6]" 
PEEKMID$GOPEEK 
PEEKLENGO 
PEEKRIGHT$PEEK 
PEEKPEEKPEEKPEEK 

103 PRINT "[ 11 ESPACIOS] 
[SHIFT+BHSHIFT+U] 
[SHIFT+I][SHIFT+B] 
[SHIFT+B][COMM + Q] 

10 INPUT 



[SHIFT+C][ 2 ESPACIOS][ 
4*SHIFT+B] [ 4*SHIFT+B] 
[NULL][CTRL+3][12] 
[SHIFT+H][NULL] 
[COMM + 6]" 
PEEKPEEKPEEKPEEK 
PEEKMID$LENRIGHT$ 
PEEKPEEKPEEKPEEK 
PEEKMID$GOPEEK 
105 PRINT "[ 11 ESPACIOS] 
[SHIFT+J][SHIFT+K] 
[SHIFT+J][SHIFT+K] 
[SHIFT+J][ 

2*SHIFT + C][SHIFT+K] 
[SHIFT+J][SHIFT+K] 
[SHIFT+J][SHIFT+K] 
[SHIFT+J][ 

2*SHIFT+C][SHIFT+K] 

[NULL]G[12][SHIFT+J] 

[NULL][COMM + 6][NULL] 

[SHIFT+R][12][SHIFT+N] 

[NULL][COMM + 6]" LENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENRIGHTS 

120 PRINT "[ 6 

ESPACIOS][SHIFT+B]<A>. 
INTRODUCCION DE DATOS[ 
2 ESPACIOS][SHIFT+B] 
[NULL][SHIFT+H][12][F8] 
[NULL][COMM + 6]" 
PEEK<B>. BUSQUEDA POR 
MESES PEEK 

160 PRINT "[ 6 

ESPACIOS][SHIFT+B]<C>. 
BUSQUEDA POR VIDEO 
CLUB[SHIFT+B][NULL] 
[CTRL+6][CR][COMM + N] 
[NULL][COMM + 6]" 
PEEK<D>. BUSQUEDA POR 
CALIDAD PEEK 

180 PRINT "[ 6 

ESPACIOS][SHIFT+B]<E>. 
BUSQUEDA ALFABETICAf 4 
ESPACIOS][SHIFT+B] 
[NULL][SHIFT+T][CR] 
[COMM+V][NULL] 
[COMM+6]" PEEK<F>. 
BUSQUEDA NORMAL 
INTRO. PEEK 



210 PRINT "[ 6 

ESPACIOS][SHIFT+B]<G> 

FIN DE PROCESOt 9 

ESPACIOS][SHIFT+B] 

[NULL][SHIFT+J][CR] 

[COMM+ -][NULL] 

[COMM + 6]" MID$LEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENGO 

230 PRINT 

254 PRINT "[ 9 

ESPACIOS]PULSE EL 
CODIGO DESEADO[ 
2*NULL][MIN./MAY.], 
[11ICOMM + K] 
A$[NULL][CRSR 
DCHA.][MIN./MAY.]6[1][F6] 
A$[COMM + R]"A"[COMM + M] 
N[COMM + R]N[COMM + N]l:0 
[COMM + R]N:[F2] 
410[NULL]>[MIN./ 
MAY.]@[1][F6] 




A$[COMM + R]"B"[COMM + M] 
[C0MM + 6]"L0AD 
":X[COMM + R]53280:[F2] 
630[NULUS[MIN./ 
MAY.]T[1][F6] 

A$[COMM + R]"C"[COMM + M] 
[F2] 

1550[NULL][SHIFT+H][MIN./ 

MAY.] t [1][F6] 

A$[COMM + R]"D"[COMM + M] 

[F2] 2070[NULL][F1][MIN./ 

MAY.][SHIFT+H][1][F6] 

A$[COMM + R]"E"[COMM + M] 

MI[C0MM + R]1:W[C0MM 

+ R]0:[F2] 

2580[NULL][CRSR 

IZQDA.][MIN./ 

MAY.][SHIFT+R][1][F6] 

A$[COMM + R]"F"[COMM + M] 

W[COMM + R]0:[F2] 

2580[NULL][COMM + R][MIN./ 

MAY.][F3][1][F6] 

A$[COMM + R]"G"[COMM + M] 

[F2] 

4000[NULL][COMM + C][MIN./ 



MAY.][CTRL+1][1][F2] 

300[NULL][SHIFT+ 

+IMIN./ 

MAY.][C0MM + 7][1][][ 11 
ESPACIOS] = 

670 PRINT 

680 PRINT "[ 13 

ESPACIOS][SHIFT+U][ 
12*SHIFT+C][SHIFT+I] 
[NULL][F4][CTRL+9] 
[C0MM + R][2][C0MM + 6]" 
PEEK ENERO 

PEEK 
700 PRINT "[ 13 

ESPACIOSHSHIFT+B] 
FEBREROt 4 ESPACIOS] 
[SHIFT+BHNULL] 
[SHIFT+N][CTRL+9] 
[SHIFT+F][2][COMM + 6]" 
PEEK MARZO 

PEEK 
720 PRINT "[ 13 

ESPACIOS][SHIFT+B] 
ABRI L[ 6 ESPACIOS] 
[SHIFT+B][NULL][CTRL + 9] 




[CLR/HOME][SHIFT+Z][2] 
[COMM + 6]" PEEK 
MAYO PEEK 

740 PRINT "I 13 

ESPACIOS][SHIFT+B] 
JUNIO[ 6 ESPACIOS] 
[SHIFT+B][NULL]V[CLR/ 
HOME][COMM + S][2] 
[COMM + 6]" PEEK 
JULIO PEEK 

760 PRINT "[ 13 

ESPACIOSHSHIFT+B] 
AGOSTOt 5 ESPACIOS] 
[SHIFT+BHNULL] 
[COMM + 7][CLR/HOME][2] 
[3][COMM + 6]" 
PEEK SEPTIEMBRE PEEK 

780 PRINT "[ 13 

ESPACIOS][SHIFT+B] 
OCTUBREt 4 ESPACIOS] 
[SHIFT+B][NULL][SHIFT+ 
tltCLR/ 

HOME][22][3][COMM + 6]" 
PEEK NOVIEMBRE 

PEEK 

800 PRINT "[ 13 

ESPACIOSHSHIFT+B] 
DICIEMBREt 2 ESPACIOS] 
[SHIFT+B][NULL]"*PRINT 
"[ 13 ESPACIOS][SHIFT+J][ 
12*SHIFT+C][SHIFT+K] 
[NULLMINST/DEU4[3] 
[COMM + 6]:[COMM + 6]" 
USE Fl Y F3 PARA ELEGIR 
EL MES": 

J[COMM + R]'l[NULL] 
[SHIFT+D][INST/ 
DEL]>[3]T[COMM + R] 
1319:H[COMM + R]T[NULL] 
[C0MM. + 1][INST/DEL]H[3] 
[COMM+4] H,[SHIFT+B] 
(H)[COMM + N]128: 
H[COMM + R]H[COMM + N]l: 
M[COMM + R]M[COMM + N]l 
[NULL][COMM + 2][INST/ 
DEL]R[3][F6] [SHIFT+B] 
(H) 

[COMM + R]32 [COMM + M] 
[F2]870[NULL][CTRL+4] 
[INST/DEL]£[3][F2] 840 
[NULL][COMM+£][INST/ 
DEL][SHIFT+F][3] 



INPUT 11 



[COMM + K] A$[NULL] 

[SHIFT+Q][INST/DEL] 

[SHIFT+ZH3] 

[F6]A$[COMM + R]"INPUT 

"[COMM + M]T[COMM + R]T 

[COMM + QJ40: 

Y[COMM + R]40:J[COMM + R] 

J[COMM + Q]l: 

[SHIFT+CR] 950:[F2]900 

[NULL][SHIFT+@][INST/ 

DEL][SHIFT+ +][3][F6]A$ 

[COMM + R]"DIM 

"[COMM + M]T 
1580 PRINT "[SHIFT+CLR/ 

HOME][CTRL+7]":POKE 
53280, 15:POKE 53281, 
15 

1590 PRINT :PRINT 

1610 PRINT :PRINT 

1620 PRINT "[ 14 

ESPACIOS][SHIFT+U][ 
13*SHIFT+C][SHIFT+I] 
[NULL][COMM + C][23] 
[SHIFT+H][6][COMM + 6]" 
PEEK 

PEEK 

1650 PRINT "[ 14 

ESPACIOS][SHIFT+B] 
<1>. l.VIDEO[SHIFT+B] 
[NULL]D[24][COMM + 
-][6][COMM + 6]" 
PEEK PEEK 

1670 PRINT "[ 14 

ESPACIOS][SHIFT+B] 
<2>. 2.VIDEO[SHIFT+B] 
[NULL][F8][24][CTRL+1] 
[6][COMM + 6]" 
PEEK PEEK 

1690 PRINT "[ 14 

ESPACIOSHSHIFT+B] 
<3>. 3.VIDEO[SHIFT+B] 
[NULL][SHIFT+T][24] 
[COMM + @][6][COMM + 6]" 
PEEK 

PEEK 
1710 PRINT "I 14 

ESPACIOS][SHIFT+B] 
<4>. 4.VIDE0[SHIFT+B] 
[NULL][CTRL+3][25] 
[COMM + U][6][COMM + 6]" 
PEEK 

PEEK 



1730 PRINT "[ 14 

ESPACIOS][SHIFT+B] 
<5>. 5.VIDEO[SHIFT+B] 
[NULL][SHIFT+D][25] 
[SHIFT+L][6][C0MM + 6]" 
PEEK 

PEEK 

1750 PRINT "[ 14 

ESPACIOS][SHIFT+J][ 
13*SHIFT+C][SHIFT+K] 
[NULL][MAY./GRAF.][25] 
[SHIFT+ESPACI0][6] 
[C0MM + 6][NULL] 
[COMM + F][25][COMM + N] 
[6][COMM + 6]" PULSE 
LA TECLA DEL VIDEO 
DESEADO 

1780 GET J$ 

1790 IFJ$ = "1" 

THENJ$ = "l.VIDEO":GOTO 

1850 
1800 IFJ$ = "2" 

THENJ$ = "2.VIDEO":GOTO 

1850 
1810 IFJ$ = "3" 

THENJ$ = "3.VIDEO":GOTO 

1850 
1820 IFJ$ = "4" 

THENJ$ = "4.VIDE0":G0T0 

1850 
1830 IFJ$ = "5" 

THENJ$ = "5.VIDEO":GOTO 

1850 
1840 GOTO 1780 
1850 PRINT "[CLR/HOME]"J$ 
1860 FOR T=l TO 19:PRINT 

:NEXT 
1870 PRINT "[ 12 

ESPACIOSJCORRECTO (S/ 

N)[ 13 ESPACIOS]" 
1880 GET A$ 

1890 IF A$ = "S" THEN 1920 
1900 IF A$ = "N" THEN1550 
1910 GOTO 1880 
1920 FOR T=l TO N:0=T 
1930 IF J$=V$(T) THENGOSUB 

10000:GOTO 1950 
1940 GOTO 2020 
1950 PRINT "[ 2*CRSR ABAJO][ 

9*CRSR 

DCHA.][CTRL+3]"N$(T) 

:AZ=1 



1960 PRINT "[ 2*CRSR ABAjujl 
9*CRSR 

DCHA.][CTRL+3]"F$(T) 
1970 PRINT "[ 2*CRSR ABAJO][ 
9*CRSR 

DCHA.][CTRL+3]"V$(T) 
1980 PRINT "[ 2*CRSR ABAJO][ 
9*CRSR 

DCHA.][CTRL+3]"P$(T) 
1990 PRINT "[ 2*CRSR ABAJO][ 
9*CRSR 

DCHA.][CTRL+3]"C$(T) 
2000 GET A$:IF A$ = "" 

THEN2000 
2010 PRINT "[SHIFT+CLR/ 

HOME]" 
2020 NEXT 

2030 IF AZ=1 THEN GOTO 100 

2040 PRINT "[SHIFT+CLR/ 
HOME][ 4*CRSR 
ABAJO]DE ESTE VIDEO 
CLUB NO HAS COGIDO 
NINGUNA" 

2050 GET A$: IF A$ = "" 
THEN2050 

2060 GOTO 100 

2070 REM = = = = = = = = = = = = 

2080 REM = BUSQUEDA. CA. = 
2090 REM = = = = = = = = = = = = 

2100 PRINT "[SHIFT+CLR/ 

HOME][CTRL+7]":POKE 
53281, 15:POKE 53280, 
15 

2110 PRINT :PRINT 

2100 PRINT "[SHIFT+CLR/ 

HOME][CTRL+7]":POKE 
53281, 15:POKE 53280, 
15 

2110 PRINT :PRINT 

2120 PRINT "[ 11 

ESPACIOS]BUSQUEDA 
POR CALIDAD[NULL] 
[C0MM + @][CTRL + 3]R 
IDIS.SHIKT-C: ] 
[COMM + 6]:[COMM + 6] 
[NULL][DIS.SHIFT-C = ] 
[CRSR 

DCHA.]£[DIS.SHIFT-C = ] 
[COMM + 6]" LENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLEN 
RIGHT$ 



12 INPUT 




2150 PRINT "[ 13 

ESPACIOS][SHIFT+B][ 14 
ESPACIOS][SHIFT+B] 
[NULL]P[CRSR DCHA.] 
[SHIFT+P] 
[DIS.SHIFT-C = ] 
[COMM + 6]" 
PEEK<1>. MALA 
PEEK 

2170 PRINT "[ 13 

ESPACIOS][SHIFT+B][ 14 
ESPACIOS][SHIFT+B] 
[NULL][C0MM + 5][CRSR 
DCHA.][DIS.SHIFT-C=] 
[COMM + 6]" 
PEEK<2>. PASABLE 
PEEK 

2190 PRINT "I 13 

ESPACIOS][SHIFT+B][ 14 

ESPACIOS][SHIFT+B] 

[NULL] 

[SHIFT+ESPACIOHCRSR 
DCHA.][COMM + 5][DIS. 
SHIFT-C = ][COMM + 6]" 
PEEK<3>. BUENA 

PEEK 
2210 PRINT "[ 13 

ESPACIOS][SHIFT+B][ 14 

ESPACIOS][SHIFT+B] 

[NULL]([CTRL+6] 

[COMM + D] 

[DIS.SHIFT-C = ] 

[COMM + 6]" 
PEEK<4>. MUY 

BUENAPEEK 
2230 PRINT "| 13 

ESPACIOS][SHIFT+B][ 14 

ESPACIOS][SHIFT+B] 

[NULL][SHIFT+P] 

[CTRL+6][SHIFT+*] 

[DiS.SHIFT-C ] 

[COMM + 6]" 
PEEK<5>. 

EXCELENTEPEEK 
2250 PRINT "[ 13 

ESPACIOS][SHIFT+B][ 14 

ESPACIOS][SHIFT+B] 

[NULL][COMM + U] 

[CTRL + 6][SHIFT+T] 

[DIS.SHIH C=j 

[COMM + 6]" MID$LEN 

LENLENLENLENLENLEN 



LENLENLENLENLENLEN 
LENGO 2620 
2270 PRINT :PRINT "[CTRL + 3H 
2 ESPACIOS]PULSE EL 
CODIGO DE LA OPCION 
DESEADA[NULL] 

[COMM + E][CTRL+6] 2630 
[COMM+C] 2640 
[DIS.SHIFT-C = ] 

[COMM + K] A$[NULL][22] 2650 
[CTRL+7][COMM + R] 
[DIS.SHIFT-C = ] 

[F6] A$[COMM + R]"l" 2660 
[COMM + M]J$[COMM + R] 2666 
"*":VA$[COMM + R] 3000 
"MALA":[F2]2350[NULL]? 3010 
[CTRL+7][COMM + C] 
[DIS.SHIFT-C = ] 3020 
[F6] A$[COMM + R]"2" 
[COMM + M]J$[COMM + R] 
"**":VA$[COMM + R] 3030 
"PASABLE":[F2]2350 3040 
[NULL][SHIFT+G] 3041 
[CTRL+7H6] 
[ENA.SHIFT-C = ] 
[F6] A$[COMM + R]"3" 
[COMM + M]J$[COMM + R] 3042 
"***":VA$[COMM + R] 
"BUENA":[F2]2350[NULL] 3043 
[SHIFT+INST/DEL] 
[CTRL+7H16] 3044 
[ENA.SHIFT-C = ] 

[F6] A$[C0MM + R]"4" 3050 

[COMM + M]J$[COMM + R] 3051 

"****":VA$[COMM + R] 

"MUY BUENA":[F2]2350 

[NULL][SHIFT+B] 

[CTRL+7][26] 

[ENA.SHIFT-C = ] 

[F6] A$[COMM + R]"5" 

[COMM + M]J$[COMM + R] 

"*****":VA$[COMM + R] 

"EXCELENTE".-[F2]2350 

[NULL][SHIFT+M] 

[CTRL+7]$ 

[ENA.SHIFT-C = ] 

[F2] 2280[NULL] 
2602 IF M I = 1 THENMI=0:SYS 

838,W$(1) 
2610 PRINT "[SHIFT+CLR/ 

H0ME][C0MM + 4]":P0KE 

53281, 15:POKE 53280, 



15 

PRINT :PRINT CX"[ 10 
ESPACIOS]BUSQUEDA 
ALFABETICA[CTRL + 7]" 
:PRINT .-PRINT :PRINT 

:PRINT 

FOR T=l TO N 
PRINT 

CS"."W$(T).-CS = CS + 1 

IF CS=10 THEN 

CS = 0.-CX=CX+1:GOSUB 

3000 

NEXT T 

GOSUB 3000:GOTO 100 
PRINT "[CLR/HOME]" 
FOR A=l TO 20:PRINT 
:NEXT 

PRINT "[CTRL+3]PULSE 
EL NUMERO DESEADO O 
F7 PASA PAGINA" 
GET A$ 

IF A$ = "" THEN3030 

IF A$ = "[F7]" THENPRINT 

"[SHIFT+CLR/ 

HOMEHCOMM + 4]": 

TA=TA+10:GOTO 3070 

IF ASC(A$)<48 OR 

ASC(A$)>57 THEN3030 

PRINT "[ 2*CRSR 

ARRI BA][ 40 ESPACIOS]"; 

PRINT "[ 39*CRSR 

IZQDA.]"; 

PRINT W$(TA+VAL(A$) + 1) 
PRINT "[ 11 

ESPACIOS]CORRECTO (S/ 
N)[NULL][27]$[COMM + D] 
[ll][COMM + K]X$[NULL] 
[SHIFT+*]$[COMM + 7] 
[ll][F6]X$[COMM + R]"N" 
[COMM + M] [C0MM + 6]"0N 

":W[COMM + R]0: 
CS[COMM + R]10:[F2]2650 
[NULL][F4]$[COMM + S] 
[ll][F6]X$[COMM + R]"S" 
[COMM + M]0[COMM + R]TA 
[COMM + N][SHIFT+E](A$) 
[COMM + N]l:[SHIFT+CR] 
10000:T[COMM + R]O:[F2] 
3071[NULL][SHIFT+INST/ 
DEL]$[COMM + H][ll][F2] 
3052[NULL][SHIFT+G]$ 



INPUT 13 



Aplicaciones 



[C0MM+V][ll][C0MM + 6]: 
[C0MM + 6JCX" 
BUSQUEDA 

ALFABETICA":[C0MM + 6]: 
[C0MM + 6]:[C0MM + 6]: 
[C0MM + 6]:tMAY./GRAF.] 
[NULL][SHIFT+Z]$ 
[SHIFT+ t ItlUW 
[C0MM + R]W[C0MM + N]1: 
[F6]W[C0MM + E]N 
fCOMM + M]100[NULL] 
[C0MM + L]$[NULL][12] 
[F6] W$(0)[COMM + R] 
N$(W)[COMM + M]T 
[COMM + R]W:[F2]3080 
[NULL][1]%[1][12] 
[F2] 307HNULL] 
[CTRL+7]% 
[DIS.SHIFT-C=][12] 
[COMM+6]" 
10030 PRINT "[SHIFT+B] 
TITULO. [SHIFT+B] 
[NULL][C0MM+B]'8' 
[C0MM + 6]"MID$LEN 
LENLENLENLENLENLEN 
>LENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
GO 

10050 PRINT "[SHIFT+UH 

7*SHIFT+C][COMM + R][ 
29*SHIFT+C][SHIFT+I] 
[NULL][COMM+X]'X' 
, [COMM + 6]"PEEKFECHA 
.PEEK 

10070 PRINT "[SHIFT+J][ 

7*SHIFT+C][COMM + E][ 
29*SHIFT+C][SHIFT+K] 
[NULL1Y 

([SHIFT+*]'[COMM + 6]" 
LENLENLENLENLENLEN 
LEN = LENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENRIGHT$ 
10090 PRINT "[SHIFT+B1VIDEO 
.[SHIFT+B][NULL] 
[COMM + 4] 



([SHIFT+T] '[COMM+6] 

"MID$LENLENLENLEN 

LENLENLEN>LENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENGO 

10110 PRINT "[SHIFT+UH 

7*SHIFT+C][COMM + R] [ 
29*SHIFT+C][SHIFT+I] 
[NULL][SHIFT+U] 
([F7]'[COMM + 6]" 
PEEKPRECIO.PEEK 

10130 PRINT "[SHIFT+J][ 

7*SHIFT+C][COMM + E][ 
29*SHIFT+C][SHIFT+K] 
[NULL11) 

[CTRL+5]'[COMM + 6]" 

LENLENLENLENLENLEN 

LEN = LENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENLENLENLENLENLEN 

LENRIGHT$ 

10150 PRINT "[SHIFT+B] 
CALIDAD[SHIFT+B] 
[NULLHSHIFT+O]) 
[C0MM+A]'[C0MM + 6] 
"MID$LENLENLENLEN 
LENLENLEN>LENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENLENLENLEN 
LENLENLENGO 

10170 PRINT 

10180 PRINT " VIDEO CLUB'S[ 
10 ESPACIOS]CALIDAD 
[NULL][COMM + B]) 
[SHIFT+N]'[COMM + 6]" 



10200 PRINT " <1>. l.VIDEOt 
10 ESPACIOS]* 
MALA[NULL][ll]*[COMM 
+ l]'[C0MM + 6]" <2>. 
2. VIDEO** PASABLE 

10220 PRINT " <3>. 3.VIDEO[ 
10 ESPACIOS]*** 
BUENA[NULL]^*[COMM 



+ L]'[COMM+6]" <4>. 
4.VIDE0**** MUY BUENA 
10240 PRINT " <5>. 5.VIDEO[ 
10 ESPACIOS]***** 
EXCELENTE[NULL] 
[COMM + 5]*[10] 
([COMM + 6]"";:[MAY./ 
GRAF.][NULL][COMM+Y] 
*F[SHIFT+C][] 
[ 11 ESPACIOS] 

[NULL][SHIFT+V]*G 

[SHIFT+Cll] 

[ 11 ESPACIOS] = 

LECTURA DAT. = [NULL] 

[COMM+J]*H[SHIFT+C][] 

[ 11 ESPACIOS] 

[NULL][MIN./MAY.] + P 
[SHIFT+C][CTRL+4] 1,8, 
0, "VIDEO CBM.'TNULL] 
[23] + Q[SHIFT+C][]l,N 
[NULL]" + RLENFOR T=l 
TO N 

50003 INPUT#1,N$(T) 

50004 INPUT#1,F$(T) 

50005 INPUT#1,V$(T) 

50006 INPUT#1,P$(T) 

50007 INPUT#1,C$(T) 

50008 NEXT 

50009 CLOSE 1:RETURN 

59990 REM = = = = = = = = = = = 

59991 REM = GRABAR. DA = 

59992 REM = = = = = = = = = = = 

60000 OPEN 15,8,15 

60001 PRINT#15,"S:VIDEO 
CBM." 

60003 PRINT "[CLR/ 
HOME]ÉSPERE UN 
MOMENTO POR FAVOR[ 6 
ESPACIOS]" 

60004 CLOSE 15 

60005 OPEN 1,8,1, "VIDEO CBM." 

60006 PRINT#1,N 

60007 FOR T=l TO N 

60008 PRINT#1,N$(T) 

60009 PRINT#1,F$(T) 

60010 PRINT#1,V$(T) 

60011 PRINT#1,P$(T) 

60012 PRINT#1,C$(T) 

60013 NEXT 

60014 CLOSE 1:RETURN 
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Aplicaciones 



AGILIDAD 
DE CALCULO 



■ 


UN JUEGO DE REFLEJOS 


■ 


RECUPERANDO AGILIDAD 


EN EL CALCULO 


■ 


DESCRIPCION 


■ 


LISTADO DEL PROGRAMA 



Este juego de reflejos está pensado es- 
pecialmente para obtener esta agilidad 
de cálculo que muchos de nosotros he- 
mos perdido con el uso masivo de las má- 
quinas calculadoras. 

También puede ser de gran ayuda 
para que los pequeños de la casa apren- 
dan matemáticas jugando. 

La presentación del programa nos 
ofrece la posibilidad de ejercitarnos 
con las operaciones de sumar, restar, 
multiplicar y dividir, así como la po- 
sibilidad de escoger dos velocidades, 
una lenta y la otra rápida. 

Todo ello se realiza con un joystick 
conectado en el PORT 2. 

DESCRIPCION 

Después de una pausa de iniciali- 
zación de los sprites y de las rutinas en 
código máquina, aparece la presenta- 
ción del programa, con las opciones a 
escoger. Simultáneamente aparecerán 
unas notas musicales que nos acom- 
pañarán en algunas fases del juego. La 
elección se realiza mediante el movi- 
miento de la palanca del joystick y 
ésta queda confirmada al pulsar el bo- 
tón de disparo. 

Esto nos lleva a una segunda pan- 
talla que nos explica brevemente lo 
que debemos realizar y que entramos 
en el primer nivel de juego. A medi- 
da que vayamos progresando en el 
mismo, iremos aumentando de nivel y 
por tanto la dificultad en resolver los 
cálculos será mayor. 

Automáticamente pasamos a la ac- 
ción. En la parte superior de la pan- 
talla nos aparece: a la izquierda, un in- 
dicador de las vidas de que dispone- 
mos: a la derecha, la puntuación que 
iremos obteniendo a lo largo del 
juego. En la parte central nos aparece 
el problema matemático a resolver. 

La misión es descubrir cuál es el nú- 
mero que esconde el interrogante que 



aparece en la fórmula. Este interro- 
gante puede aparecer en posiciones 
aleatorias. 

Por ejemplo, es posible observar 
5+7 = ?, o bien, 7+? = 12 o 
?+9 = 13. Esto combina las operacio- 
nes de sumar y restar de forma alea- 
toria. De igual forma sucede con las 
operaciones de multiplicar y de dividir. 

Para dar la respuesta disponemos de 
una nave en la parte inferior de la pan- 
talla que sólo puede moverse horizon- 
talmente sobre cinco posibilidades. 
Una vez colocada nuestra nave sobre 
la respuesta que creamos correcta, de- 
beremos intentar destruir una nave 
enemiga (OVNI) que se pasea encima 
de la nuestra, pulsando el botón de 
disparo. 

La nave enemiga se mueve por la 
pantalla de derecha a izquierda en tres 
niveles, empezando por la parte su- 
perior y acercándose en cada nivel a la 



nuestra. Si destruimos esta nave, nos 
aparecerá un nuevo problema para re- 
solver y el OVNI vuelve al nivel su- 
perior. 

PUNTUACION Y BONIFICACIONES 

La existencia de estos tres niveles 
nos ofrece diferentes dificultades. En 
el nivel superior, deberemos tener los 
reflejos en forma y por tanto la pun- 
tuación será de 25 puntos; en los dos 
niveles restantes, donde la dificultad 
es decreciente, la puntuación será de 
10 y 5 puntos respectivamente. 

Si colocamos nuestra nave sobre 
una respuesta incorrecta y el disparo 
alcanza al OVNI, éste no se destruye 
sino que cambia de color y prosigue su 
viaje. En este caso dispondremos de 
un nuevo disparo sólo cuando el 
OVNI haya descendido un nivel. En el 
caso de que no lo hayamos destruido 
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en los tres niveles, no nos queda más 
que esperar la destrucción total de 
nuestra nave, con su efecto sonoro co- 
rrespondiente. Esto nos reduce el nú- 
mero de vidas de que disponemos y si 
éstas llegan a cero finaliza el juego 
dando opción a volver a empezar uno 
nuevo. 

Para aumentar la dificultad de las 
preguntas es necesario acumular 50 
puntos. Esto se puede realizar tanto 
con dos aciertos de 25 puntos como de 
10 aciertos de 5 puntos o bien combi- 
naciones de ambos. 

Si el promedio de puntuación en un 
nivel es de 25 puntos, recibiremos una 
bonificación de 50 puntos. Si el pro- 
medio se encuentra entre 10 y 25 pun- 
tos, la bonificación será de 25 puntos. 
En el caso de que no lleguemos a los 
10 puntos, no tendremos ninguna bo- 
nificación. 

EL PROGRAMA 

Después de unos breves comenta- 
rios pasamos a la línea 100 donde va- 
mos a ejecutar la subrutina de leer los 
DATAS y de transportar el código 
máquina a partir de la dirección 
49152, ya conocida por todos noso- 
tros. Esta lectura lleva una compro- 
bación de los DATAS dando un men- 
saje de error si nos hemos equivocado 
al teclear esta parte del programa. 

En la presentación del programa (lí- 
neas 120 a 180) se realizan dos subru- 
tinas interesantes; la primera de ellas 
la que empieza en la línea 860 y su mi- 
sión es la de hacer aparecer por la de- 
recha de la pantalla y en scroll un 
texto hasta dejarlo centrado en la lí- 
nea donde aparece. La segunda subru- 
tina es la que empieza en la línea 890 
y es la encargada de las notas musi- 
cales de la presentación. 

La lectura del joystick se realiza en 
las líneas 190 a 260. Aquí las variables 
H y G representan las coordenadas en 
pantalla donde aparecerá el indicador 
de selección. 

En la línea 250 nos aparece un SYS 
49152. Esta rutina en lenguaje má- 
quina es la que nos hace mover dicho 
indicador por la pantalla. 

Una vez hemos realizado la selec- 
ción del tipo de operaciones que de- 




seamos practicar, apretamos el pulsa- 
dor de fuego. Esto nos lleva a la línea 
270 donde se inicializan las variables 
del nivel de juego (L), de la puntua- 
ción (SC) y del número de vidas (S). 

La presentación de la segunda pan- 
talla corre a cargo de las líneas 280 a 
340. La presentación del terreno de 
juego empieza a partir de la línea 350. 

La ecuación matemática es repre- 
sentada por tres variables; los dos pri- 
meros términos de la igualdad serán 
las variables A y B mientras que el re- 
sultado será introducido en la variable 
C. El tipo de operación es compro- 
bado en la línea 390. 

La decisión de dónde colocaremos 
el interrogante viene dada en las líneas 
410 a 450 y la presentación de la ecua- 
ción en la pantalla se realiza en las lí- 
neas 460 y 470. 

La creación de los diferentes valores 
que nos aparecen como posibles res- 
puestas corre a cargo de las líneas 480 



a 510 y su presentación en pantalla por 
las líneas 520 a 550. 

Ahora bien, la mayor parte del 
juego se traduce en una sola línea, la 
560, donde se va a ejecutar una rutina 
en lenguaje máquina situada en la di- 
rección 49195. 

En la línea 570 miramos si hemos 
acertado la respuesta. En caso afir- 
mativo se ejecutan las líneas 600 a 660 
y en el otro caso las líneas 670 a 720 
donde se decrementa el número de vi- 
das y se decide si se ha llegado al final 
del juego. El haber acertado correc- 
tamente la respuesta trae consigo el 
análisis de las bonificaciones, cosa que 
se realiza en las líneas 730 a 780. 

Por último, las líneas 790 a 850 pre- 
sentan la pantalla de fin del juego. 
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50 REM * 

60 REM * PON A PRUEBA TUS 
MATEMATICAS * 

70 REM * 

80 REM ******************** 
90 REM 

100 GOSUB 1000 

110 V=54272:FOR 1 = TO 

24:POKE V+l,0:NEXT 
120 POKE 53280, 0:POKE 

53281,0 
130 PRINT "[SHIFT+CLR/ 

HOME][CTRL+7]":A$ = " 

REFLEJOS ":GOSUB 

860:GOSUB 890 
140 PRINT "[CRSR ABAJO][ 

3*CRSR DCHAJCOLOCAR 

EL JOYSTICK EN EL PORT 

2" 

150 PRINT "[ 7*CRSR ABAJO][ 
13*CRSR DCHA.][CTRL+9] 
ESCOGE : [CTRL+0]" 



160 PRINT "[ 2*CRSR ABAJO][ 
9*CRSR 

DCHA.][CTRL+4]SUMAR[ 9 

ESPACIOS][COMM + 7] 

MULTIPLICAR" 
170 PRINT "[ 9*CRSR 

DCHA.][CTRL+4]RESTAR[ 8 

ESPACIOS][COMM + 7] 

DIVIDIR" 
180 PRINT "[ 2*CRSR 

ABAJO][CTRL+6]LENTO": 

PRINT "[ 2*CRSR 

ABAJ0][C0MM + 6]RAPID0 

[CTRL+8]":H = 11:G = 18: 

POKE 830,H:POKE 831, G 
190 X=PEEK(56320):J=X AND 

15:B = X AND 16 
200 IF B = THEN270 
210 IF J 11 THENH=1 1 
220 IF J = 7 THENH = 26 
230 IF J = 14 THENG = 18 
240 IF J 13 THENG = 21 
250 POKE 828,H:POKE 829, 

G:SYS 49152 
260 GOTO 190 
270 L=1:SC=0:S = 3 
280 POKE 53269, 0:PRINT 

"[SHIFT+CLR/HOMEH 

6*CRSR ABAJO][ 11*CRSR 

DCHA.][C0MM + 8]C0L0CA 

TU NAVE" 
285 PRINT "[ 2*CRSR ABAJO][ 

4*CRSR DCHA.JSOBRE LA 

RESPUESTA CORRECTA" 
290 BN = 0:BO=0:B = 0:SH = 
300 PRINT "[ 2*CRSR ABAJO][ 

14*CRSR DCHA.1Y 

DISPARA" 
310 PRINT "[ 3*CRSR ABAJO][ 

5*CRSR 

DCHA.][CTRL+3]NO 
DERROCHES LOS TIROS" 
320 PRINT "[ 2*CRSR ABAJO][ 
12*CRSR 

DCHA.][CTRL+5]NIVEL ";L 
330 GOSUB 890 
340 FOR 1 = 1 TO 1500:NEXT 
350 PRINT "[SHIFT+CLR/ 

HOME][ 30 

ESPACIOS][CTRL+6] 

PUNT0S[CTRL+3]"SC"tCLR/ 

HOME][CTRL+7]" ; 



360 FOR 1 = 1 TO S:PRINT 

"[CRSR DCHA.HSHIFT+A]"; 
:NEXT 

370 A=INT 

(RND(0)*4+1) + 4*(L-1) 

380 B = INT (RND(0)*4*L+1) 

390 IF H = ll 

THENC=A+B:GOTO 410 
400 C=A*B 

410 A$ = STR$(A):B$ = STR$(B): 

C$ = STR$(C) 
420 RP=INT (RND(0)*4) + 1 
430 IF RP=1 

THENANS=A:A$ = " ?" 
440 |F RP=2 

THENANS=B:B$ = " ?" 
450 IF RP>2 

THENANS = C:C$ = " ?" 
460 PRINT "[CLR/HOMEH 

4*CRSR ABAJO][ 15*CRSR 

DCHA.][CTRL+5]";:IF H = 1 1 

THENPRINT A$" +"B$" 

= "C$:GOTO 480 
470 PRINT A$" X"B$" ="C$ 
480 IFANS>90 

THENDEL=10:GOTO 510 
490 IFANS>20 

THENDEL=5:GOTO 510 
500 DEL=INT ((ANS/10) + 1) 
510 DT=INT (RND(0)*5) + 1 
520 PRINT "[CLR/HOME][ 

21*CRSR ABAJOHCTRL+8]" 
530 FOR 1 = 1 TO 

5:CH(I)=ANS + (I-DT)*DEL: 

PRINT TAB(I*5)CH(I);:NEXT 
540 FOR 1 = 1 TO 5:IF 

CH(I)=ANS THENPOKE 

901,1-1 
550 NEXT 
560 SYS 49195 
570 X=PEEK(900):SH = SH + 1 
580 IF X=2 THEN600 
590 IF X=l THEN670 
600 W=PEEK(833):IF W=0 

THENB=25 
610 IF W=l THENB = 10 
620 IF W=2 THENB = 5 
630 BN=BN+B 
640 SC = SC+B:PRINT "[CLR/ 

HOME][ 18*CRSR ABAJO][ 

17*CRSR 

DCHA.][CTRL+6]"B 
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650 IF BN> = 50 

THENL=L+1:G0T0 730 

660 GOTO 340 

670 S=S-1 

680 PRINT "[CLR/ 

HOME][COMM + 7][ 9*CRSR 
ABAJO] ":A$ = " INTENTALO 
DE NUEVO":GOSUB 860 

690 PRINT "[ 3*CRSR 

ABAJO]":A$ = "SE QUE LO 
PUEDES 

CONSEGUIR":GOSUB 860 
700 PRINT "[ 2*CRSR 

ABAJO]":A$ = "LA 

RESPUESTA ES:":GOSUB 

860:PRINT "[CRSR ABAJO] 

CTRL+5]":A$ = STR$(ANS): 

GOSUB 860 
710 GOSUB 890:IF S = 

THEN790 
720 GOTO 340 
730 BO=INT (BN/SH + .5) 
740 IF BO> = 25 

THENBO = 50:GOTO 770 
750 IF BO> = 10 

THENBO = 25:GOTO 770 
760 GOTO 780 
770 PRINT "[CLR/HOMEH 

14*CRSR ABAJOH 13*CRSR 

DCHA.][CTRL+9] 

BONIFICACION 

[CTRL+0]"BO:SC = SC + BO 
780 FOR 1 = 1 TO 5000:NEXT 

:GOTO 280 
790 POKE 53269, 0:PRINT 

"[SHIFT+CLR/HOME][ 

3*CRSR ABAJO][ 13*CRSR 

DCHA.][CTRL+4]PUNT0S: 

[CTRL+5]";SC 
800 PRINT "[ 7*CRSR ABAJOH 

13*CRSR 

DCHA.][CTRL+2]EL JUEGO" 
810 PRINT "[ 3*CRSR ABAJO][ 

12*CRSR DCHAJHA 

TERMINADO" 
820 PRINT "[ 5*CRSR ABAJO][ 

2*CRSR 

DCHA.][CTRL+6]PULSA 
[CTRL+8]UNA 
TECLA[CTRL+6] PARA 
EMPEZAR DE NUEVO" 
830 POKE 198,0 



840 WAIT198.1 
850 GOTO 120 

860 X=LEN(A$):A$=A$ + "[ 24 

ESPACIOS]" 
870 FOR 1 = 1 TO X+19-INT (X/ 

2 + .5):POKE 211, 

39-hPRINT MID$(A$,1,I) ; 

:NEXT I 
880 RETURN 

890 V=54272:POKE V+24, 

15:POKE V+5,0:POKE V+6, 
240 

900 POKE V+l,25:POKE V+4, 

33:FOR 1 = 1 TO 300:NEXT 

:POKE V+4, 32 
910 POKE V+l,33:POKE V+4, 

33:FOR 1 = 1 TO 900:NEXT 

:POKE V+4, 32 
920 POKE V+l,25:POKE V+4, 

33:FOR 1 = 1 TO 400:NEXT 

:POKE V+4, 32 
930 POKE V+l,33:POKE V+4, 

33:FOR 1 = 1 TO 100:NEXT 

:POKE V+4, 32 
940 POKE V+l,29:POKE V+4, 

33:FOR 1 = 1 TO 100:NEXT 

:POKE V+4, 32 
950 POKE V+l,28:POKE V+4, 

33:FOR 1 = 1 TO 100:NEXT 

:POKE V+4, 32 
960 POKE V+l,25:POKE V+4, 

33:FOR 1 = 1 TO 700:NEXT 

:POKE V+4, 32 
970 RETURN 

1000 PRINT "[SHIFT+CLR/ 

HOME][ 10*CRSR ABAJO][ 
8*CRSR DCHAJESPERA 
UN MOMENTO 
...":I=49152:CK = 

1010 READ A: I F A=256 
THEN1030 

1020 POKE I, 

A:CK = CK + A:l = l + l:GOTO 
1010 

1030 IFCKO80619 

THENPRINT "ERROR EN 
LOS DATAS":STOP 

1040 RETURN 

49152 DATA 174,63,3,172,62, 

3,24,32 
49160 DATA 240,255,169,32, 

32,210,255,174 



49168 DATA 61,3,172,60,3, 

24,32,240 
49176 DATA 255,169,209,32, 

210,255,173,61 
49184 DATA 3,141,63,3,173, 

60,3,141 
49192 DATA 62,3,96,32,110, 

194,169,2 
49200 DATA 141,64,3,169,0, 

141,65,3 
49208 DATA 169,1,141,66,3, 

169,100,141 
49216 DATA 67,3,169,250, 

141,248,7,169 
49224 DATA 251,141,249,7, 

169,252,141,250 
49232 DATA 7,169,7,141,21, 

208,169,6 
49240 DATA 141,39,208,169, 

8,141,40,208 
49248 DATA 169,15,141,41, 

208,169,0,141 
49256 DATA 23,208,169,2, 

141,29,208,169 
49264 DATA 255,141,27,208, 

141,68,3,169 
49272 DATA 0,141,70,3,173, 

30,208,169 
49280 DATA0, 162,24, 157,0, 

212,202,224 
49288 DATA 255,208,248, 

169,15,141,24,212 
49296 DATA 173,61,3,201,21, 

208,8,169 
49304 DATA 15,141,77,3,76, 

164,192,169 
49312 DATA 22,141,77,3,32, 

229,192,32 
49320 DATA 56,193,32,162, 

193,32,234,193 
49328 DATA 32,222,193,173, 

68,3,208,236 
49336 DATA 169,17,141,5, 

212,169,241,141 
49344 DATA 6,212,169,129, 

141,4,212,169 
49352 DATA 4,141,1,212,169, 

64,141,76 
49360 DATA 3,32,222,193, 

206,76,3,208 
49368 DATA 248,169,0,170, 

157,0,212,232 
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49376 


DATA 224,25,208,248, 


49584 




96,174,64,3 




49384 


DATA 189,86,194,141, 


49592 




0,208,169,200 




49392 


DATA 141,1,208,173, 


49600 




67,3,141,2 




49400 


DATA 208,173,66,3,10, 


49608 




141,16,208 




49408 


DATA 174,65,3,189, 


49616 




106,194,141,3 




49416 


DATA 208,173,70,3, 


49624 




201,1,240,14 




49424 


DATA 174,64,3,189,86, 


49632 




194,141,4 




49432 


DATA 208,169,200, 


49640 




141,5,208,173,76 




49440 


DATA 3,240,20,206,76, 


49648 




3,173,76 




49448 


DATA 3,10,10,141,1, 


49656 




212,201,0 




49456 


DATA 208,5,169,128, 


49664 




141,4,212,96 




49464 


DATA 173,67,3,208,3, 


49672 




206,66,3 




49472 


DATA 206,67,3,173,66, 


49680 




3,24,109 




49480 


DATA 67,3,201,0,208, 


49688 




23,238,65 




49488 


DATA 3,169,1,141,66, 


49696 




3,169,80 




49496 


DATA 141,67,3,169,0, 


49704 




141,70,3 




49504 


DATA 169,8,141,40, 


49712 




208,173,0,220 




49512 


DATA 141,69,3,41,8, 


49720 




240,18,173 




49520 


DATA 69,3,41,4,208, 


49728 




21,173,64 




49528 


DATA 3,240,16,206,64, 


49736 




3,76,139 




49536 


DATA 193,173,64,3, 


49744 




201,16,240,3 




49544 


DATA 238,64,3,173,70, 


49752 




3,201,1 




49552 


DATA 208,15,206,5, 


49760 




208,173,5,208 




49560 


DATA 201,30,208,5, 


49768 




169,2,141,70 




49568 


DATA 3,96,173,69,3, 


49776 




41,16,201 




49576 


DATA 0,208,38,173,70, 


49784 




3,208,33 





DATA 169,1,141,70,3, 49792 
173,64,3 

DATA 74,74,141,71,3, 49800 
169,17,141 

DATA 5,212,169,241, 49808 
141,6,212,169 

DATA 129,141,4,212, 49816 
169,10,141,76 

DATA 3,173,70,3,201, 49824 
1,240,5 

DATA 169,5,141,71,3, 49832 
96.174,77 

DATA 3,160,0,136,208, 49840 
253,202,208 

DATA 250,96,173,30, 49848 
208,141,72,3 49856 
DATA 41,1,141,73,3, 49864 
173,72,3 

DATA 41,2,74,141,74, 49872 
3,173,72 

DATA 3,41,4,74,74, 49880 
141,75,3 

DATA 173,73,3,45,74, 49888 
3,201,1 

DATA 208,3,76,35,194, 49896 
173,74,3 

DATA 45,75,3,201,1, 49904 
208,3,76 49912 
DATA 56,194,96,169, 
253,141,248,7 49920 
DATA 169,1,141,21, 49928 
208,169,1,141 49936 
DATA 132,3,169,0,141, 49944 
68,3,96 49952 
DATA 173,133,3,205, 49960 
71,3,208,16 49968 
DATA 169,253,141, 49976 
249,7,169,2,141 
DATA 132,3,169,0,141, 49984 
68,3,96 

DATA 169,1,141,40, 49992 
208,96,70,70 

DATA 70,70,110,110, 50000 

110,110,150,150 

DATA 150,150,190, 50008 

190,190,190,230,230 

DATA 230,230,100, 50016 

133,167,200,162,0 

DATA 189,122,194, 50024 

157,128,62,232,208 

DATA 247,96,0,0,0,0,0, 50032 

50040 



DATA 0,24,0,0,24,0,0, 
24 

DATA 0,0,24,0,0,24,0, 


DATA 24,0,0,24,0,0,24, 


DATA 0,60,0,0,60,0,0, 
60 

DATA 0,0,60,0,1,255, 
128,15 

DATA 255,240,127, 
255,254,127,0,254 
DATA 112,0,14,96,0,6, 
96,0 

DATA 6,192,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0 
DATA 0,0,255,0,1,255, 
128,7 

DATA 255,224,31,255, 

248,255,255,255 

DATA 225,195,31,225, 

195,31,255,255 

DATA 255,31,255,248, 

7,255,224,1 

DATA 255,128,0,255,0, 

0,0,0 

DATA 0,0,0,0,0,0,0,0 
DATA 0,164,0,24,0,0, 
24,0 

DATA 0,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0 
DATA 0,247,0,0,0,0,32, 


DATA 40,128,64,0,136, 
0,2,2 

DATA 0,130,33,128,2, 
18,196,16 

DATA 168,0,17,11,0,1, 
169,0 

DATA 1,45,72,17,146, 
8,0,136 

DATA 144,0,8,8,8,120, 
0,2 

DATA 24,128,16,8,16, 
0,0,32 

DATA 2,3,0,1,32,0,0,0 
DATA 0,193,256 
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LA MUSICA, LOS MICROS 
Y EL MIDI 



El hacer música con tu ordenador no 
es más que un punto de partida. La in- 
troducción de equipos basados en el 
MIDI te permite conectar los ordena- 
dores con los sintetizadores musicales y 
pasar de uno a otro. 

El sonido se ha convertido en una 
de las principales características que la 
mayoría de la gente espera encontrar 
en un microordenador doméstico, 
hasta el punto de que hay personas 
que pueden sentirse inclinadas a com- 
prar un ordenador determinado a 
causa de sus posibilidades sonoras. 
Aparte de la música que puedas hacer 
con tu ordenador, está empezando a 
introducirse y a estar cada vez más fá- 
cilmente disponible la posibilidad de 
conectar muchos microordenadores 
domésticos a sintetizadores y a otras 
clases de instrumentos musicales. El 
estándar correspondiente se llama 
MIDI, Interface Digital para Instru- 
mentos Musicales (Musical Instru- 
ment Digital Interface) y te brinda una 
nueva gama de posibles utilizaciones 
para tu ordenador. 



EL SONIDO DE LOS 
ORDENADORES 

El sonido que son capaces de pro- 
ducir los ordenadores ha evolucionado 
enormemente desde los pitidos y zum- 
bidos producidos por los primeros mo- 
delos que incorporaban sonidos, hasta 
la posibilidad de ejecutar piezas mu- 
sicales y producir otros efectos sono- 
ros. Las capacidades sonoras que te 
ofrece el Commodore 64 figuran entre 
las más sofisticadas que se pueden en- 
contrar en un ordenador doméstico, 
para lo cual dispone de su propio chip, 
lo que permite un amplio margen de 
posibilidades musicales. El ordenador 
dispone de tres canales musicales o vo- 
ces que pueden interpretarse por se- 
parado o juntas (formando acordes). 



Además el sonido que producen no es 
el de una nota «pura» ya que puedes 
conformar la calidad del sonido resul- 
tante utilizando envolventes. 

Si has probado alguno de los pro- 
gramas de música que hemos publi- 
cado en INPUT, ya sabrás lo que es 
posible conseguir con tu ordenador. 
Incluso los sonidos más sofisticados 
producidos con el más sofisticado de 
los ordenadores, son de una calidad 
inferior a la que nos tienen acostum- 
brados las grabaciones normales, por 
no mencionar los inconvenientes de 
intentar ejecutar un fragmento musi- 
cal con un teclado QWERTY. Incluso 
en el caso más favorable, el micro si- 
gue estando por debajo de un instru- 
mento musical construido deliberada- 
mente para ser utilizado como tal. 



INSTRUMENTOS MUSICALES 

La historia del desarrollo de los ins- 
trumentos musicales en las últimas dé- 
cadas ha seguido un desarrollo bas- 
tante paralelo al de las máquinas de 
calcular. Los instrumentos tradicio- 
nales eran mecánicos: trozos de piel 
que se golpeaban, cuerdas pulsadas o 
frotadas, etc. Poco a poco, la necesi- 
dad creciente de conseguir un mayor 
volumen en los conciertos en vivo y la 
necesidad de hacer grabaciones, ha 
ido conduciendo a que se vayan elec- 
trificando instrumentos como guita- 
rras y pianos, hasta disponer final- 
mente, en los últimos años, de instru- 
mentos musicales puramente electró- 
nicos tales como los sintetizadores. De 
la misma forma que las máquinas de 
calcular han evolucionado desde el 
ábaco mecánico hasta el moderno or- 
denador que incorpora tecnología 
electrónica digital, los últimos instru- 
mentos musicales que han aparecido 
están llenos de circuitos integrados. 

Los sintetizadores modernos son 
unos dispositivos extraordinariamente 
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viduales de tiempo hasta que se com- 
pleta toda la melodía. 

EL MIDI Y LOS ORDENADORES 
DOMESTICOS 

Coincidiendo con la aparición de los 
ordenadores que utilizan el estándar 
MSX se ha dado bastante publicidad a 
la relación entre el MIDI y los micros 
domésticos. Yamaha ha introducido el 
ordenador musical CX5M, que es un 
ordenador MSX con un sintetizador 
incorporado. Si a este ordenador se le 
añade un teclado de tipo pianístico, el 
propietario se encuentra en posesión 
de un auténtico sintetizador hecho y 
derecho. Esta máquina brinda toda 
clase de posibilidades a los músicos: se 
puede componer sobre la pantalla de 
un monitor, o se puede utilizar el or- 
denador como secuenciador sin nece- 
sidad de ningún hardware adicional. 

El costo de este ordenador supera 
considerablemente al de un Commo- 
dore 64, pero puedes tener un dispo- 
sitivo parecido si utilizas tu ordenador 
conectándolo a un sintetizador MIDI. 
Para ello necesitas una caja de inter- 
face MIDI a la que conectar tu orde- 
nador, un conector y un poco de soft- 
ware. La caja de interface, cuyo coste 
es inferior al de un Spectrum, te per- 
mitirá conectar tu ordenador a cual- 
quier equipo que sea compatible con 
la interface MIDI. En la actualidad el 
precio de los sintetizadores compati- 
bles con MIDI es bastante superior al 
de un Commodore, por lo que en rea- 
lidad constituye una vía muy cara para 
que los usuarios de ordenadores do- 
mésticos extiendan el campo de sus 
habilidades musicales, pero al igual 
que ocurre con las impresoras, los mo- 
nitores de color y las unidades de 
disco, se puede predecir una caída en 
el precio de los instrumentos. En un 
futuro no lejano, el precio de un sin- 
tetizador resultará probablemente 
comparable al de los micros domésti- 
cos que pueden utilizarse para contro- 
larlo. 

Pero incluso antes de que se pro- 
duzca esta caída de precios, los posee- 
dores de equipos musicales compati- 
bles con MIDI considerarán que una 
combinación de un micro doméstico y 




una interface MIDI es una alternativa 
muy atractiva. Con un software ade- 
cuado se puede disponer de un amplio 
margen de posibilidades y se puede 
disponer de una gran cantidad de efec- 
tos añadidos a un coste muy mode- 
rado. 

Cuando un ordenador doméstico se 
conecta a la interface MIDI, no se uti- 
lizan para nada las capacidades sono- 
ras que incorpora; el sonido se genera 
siempre en el sintetizador o en la má- 
quina de percusión, por lo que no es 
preciso adquirir un ordenador muy 
caro para utilizarlo específicamente 
con el MIDI. Es importante darse 
cuenta de que no hay ninguna ventaja 
real en utilizar ordenadores profesio- 
nales de alto precio en lugar de micros 
domésticos. Incluso la cantidad de me- 
moria adicional de que disponen los 
ordenadores profesionales es en gran 
parte superflua, ya que el espacio de 
memoria normal de un micro domés- 



tico supera ampliamente, por ejem- 
plo, al de cualquier secuenciador. La 
idea básica es que un ordenador al que 
se pueda conectar una interface MIDI 
es tan bueno como cualquier otro, 
aunque pudiera ser que en el caso del 
Spectrum de 16K te encuentres con la 
capacidad de memoria ligeramente li- 
mitada. 

Hay que destacar además que la ca- 
lidad del sonido disponible no está li- 
mitada por el medio de grabación. 
Como el sonido se almacena digital- 
mente, se le puede comparar con el de 
un medio como el del Compact Disk, 
en vez de la cinta a la que se le puede 
añadir todo tipo de ruido indeseable. 
En otras palabras, lo que sale de un 
sistema MIDI es exactamente igual a 
lo que entra. 

SOFTWARE PARA EL «MIDI» 

Una vez que ya tengas enganchado 
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tu ordenador a un instrumento musi- 
cal por medio del MIDI, necesitarás 
algún software para que funcione. Ac- 
tualmente la oferta es todavía bastante 
restringida y comparable en precio al 
software comercial disponible para or- 
denadores domésticos. ■ La situación 
irá cambiando a medida que haya más 
gente que use el MIDI. 

No obstante, incluso con la escasa 
oferta que existe actualmente, ya hay 
programas que te permiten duplicar 
secuenciadores, componer música en 
varias pistas y editar tus propias me- 
lodías. Las ofertas concretas varían de 
unos fabricantes a otros y de unos or- 
denadores a otros. 

Aunque te consideres incapaz de 
ejecutar una nota en un instrumento 
musical, te encontrarás con que pue- 
des interpretar música compuesta so- 
bre el monitor de tu ordenador y en- 
viando la información al instrumento 
musical que ha de ejecutarla. También 



puedes almacenar la composición en 
disco o cinta para hacer después play- 
back o para ejecutarla en otro mo- 
mento. Se prevé la existencia de hojas 
de música disponibles en EPROMs 
codificadas en formato MIDI, por lo 
que se tendrán piezas completas eje- 
cutables de forma parecida a un disco 
o cinta, o bien para tocar al mismo 
tiempo que se hace un playback con el 
contenido de una EPROM. 

Un paquete de software típico del 
MIDI es el programa compositor de 
música que te permite ir construyendo 
tu pieza sobre la pantalla, de forma 
muy parecida a como la escribirías so- 
bre el papel, incorporando las notas 
sobre un pentagrama. Unas utilidades 
completas de edición y ejecución te 
permiten comprobar el estado de 
avance e introducir modificaciones en 
la pantalla. Pero no termina aquí la 
cosa, ya que un buen software pondrá 
además a tu disposición todas las po- 



sibilidades del sintetizador. Puedes 
controlar tantas voces simultáneas 
como permita el sintetizador; un sin- 
tetizador polifónico típico de alta ca- 
lidad, puede llegar a ejecutar hasta 16 
notas al mismo tiempo. Puedes esco- 
gerlas dentro del margen de notas pre- 
programadas en el sintetizador o com- 
binar nuevas notas. Si tu sintetizador 
tiene la posibilidad de desdoblar en 
dos el teclado, puedes tener incluso 
dos instrumentos diferentes sonando 
al mismo tiempo, por ejemplo, una 
melodía y su acompañamiento. En ge- 
neral hay tres tipos de información 
que puedes enviar al MIDI: notas, 
cambios de programa y mezclas de so- 
nidos. 

En la actualidad hay un conjunto 
normalizado de códigos MIDI, que 
funcionarán con cualquier sintetizador 
compatible-MIDI. Pero dichos códi- 
gos sólo sirven para controlar las fun- 
ciones más básicas disponibles. Se 
puede acceder a otras prestaciones es- 
peciales por medio de sistemas de co- 
dificación extendidos, que normal- 
mente varían de un instrumento a 
otro. Como consecuencia, una pieza 
compleja con una orquestación va- 
riada puede exigir la familiaridad con 
un gran número de códigos MIDI, si 
bien es muy posible que esto se sim- 
plifique considerablemente en el fu- 
turo. 

Si te consideras un programador de 
ordenadores y no un músico, no por 
ello tienes que desanimarte para uti- 
lizar el MIDI. En cierto modo tienes 
alguna ventaja. Si puedes programar 
en código máquina, no hay nada que 
te impida escribir tu propio software 
para el MIDI, cortado a la medida de 
tus necesidades, con lo que además te 
ahorrarás el gasto que supone la com- 
pra de un software comercial. 

El MIDI parece ofrecer muchas po- 
sibilidades al músico como al no mú- 
sico. A medida que los precios van ba- 
jando, los instrumentos musicales pa- 
recen estar destinados a abrirse ca- 
mino en la mayoría de los hogares;, 
¡quién sabe si llegarán a generalizarse 
las veladas musicales en torno al sin- 
tetizador! Y además tendrás la opor- 
tunidad de llegar a ser realmente crea- 
tivo con tu ordenador. 
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Unidad de discos 
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Ejemplo de MIDI enlazando un 
ordenador, una máquina de 
percusión y un sintetizador. La 
información musical se puede 
almacenar en el disco. 



sofisticados. En lugar del número li- 
mitado de notas que pueden ser inter- 
pretadas en un ordenador, y del nú- 
mero limitado (o inexistente) de tipos 
de envolventes, te encontrarás con un 
asombroso conjunto de posibilidades. 
Un sintetizador típico de precio medio 
te permitirá la ejecución de acordes de 
hasta ocho notas en un teclado ade- 
cuado. Casi todas las máquinas ofre- 
cen un conjunto de sonidos preprogra- 
mados, por lo que si quieres tener el 
sonido de un piano o un violín no tie- 
nes más que pulsar la tecla adecuada. 
Pero no todo se queda en los sonidos 
preprogramados; puedes jugar con las 
ideas que se te ocurran hasta producir 
casi cualquier sonido que desees. El 
sueño del publicista con un sintetiza- 
dor que puede llegar a ser una or- 
questa completa, no está disponible 
todavía, pero probablemente está ya 
acechando en la mente de alguien en 
alguna parte. Cuando se mencionan 
los sintetizadores, casi todo el mundo 
piensa inmediatamente en los instru- 
mentos de teclado que constituyen con 
mucha diferencia el tipo más corriente 
de sintetizador. Pero dado que real- 
mente el corazón del sintetizador es 
una caja que contiene una electrónica 
para producir sonidos, la cual puede 
ser atacada por algún tipo de señal, en 
pura teoría no hay razón para que no 
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se utilice otro tipo de instrumentos 
para atacar dicha electrónica. En la 
práctica, la cosa es ligeramente dife- 
rente. Por diversas razones técnicas, el 
tipo de sintetizador musical más po- 
pular sigue siendo el de teclado, si 
bien puedes comprar sintetizadores 
tipo guitarra, que se tocan exacta- 
mente igual que una guitarra aunque 
suenan como tú quieras que suenen. 
También hay sintetizadores de percu- 
sión, diferentes de las máquinas de 
percusión sintética, que se tocan gol- 
peando sobre una serie de almohadi- 
llas. Por otra parte las máquinas de 
percusión están preprogramadas para 
proporcionar un soporte rítmico sin la 
intervención de un ejecutante. Pero 
también éstas caen dentro de la cate- 
goría de sintetizadores. Hasta hace 
poco tiempo, las máquinas de percu- 
sión tenían un sonido muy caracterís- 
tico, por lo que cualquier grabación 
hecha con una máquina de éstas en 
vez de con un verdadero instrumento 
de percusión era reconocible al ins- 
tante. Con los últimos avances de la 
tecnología, ya no puede decirse esto. 
Casi todas las máquinas de percusión 
ofrecen unos cuantos ritmos preselec- 
cionados, poseyendo además una ca- 
pacidad de memoria que te permite 
crear y almacenar tus propios esque- 
mas rítmicos. 

Esta última posibilidad de las má- 
quinas de percusión señala el camino 
hacia una verdadera revolución en lo 
musical. Hasta ahora la habilidad mu- 
sical siempre había dependido de al- 
gún tipo de destreza manual, es decir 
de la posibilidad de mover los dedos 



con rapidez y precisión sobre un te- 
clado, o de poder golpear con preci- 
sión una membrana en el instante 
justo. En los instrumentos de viento, 
la habilidad consiste en coordinar el 
movimiento de los dedos con los di- 
ferentes movimientos respiratorios. 
La llegada de los instrumentos musi- 
cales programables modifica por com- 
pleto este panorama. La máquina pro- 
gramable de percusión no sirve como 
sustituto del talento musical. Sigue ha- 
ciendo falta alguien capaz de entender 
el ritmo y de «oír» en su mente el 
efecto deseado. Lo que hace la má- 
quina es liberar a la persona dotada de 
talento musical de esa dependencia de 
la habilidad manual y de la necesidad 
de adquirir un instrumento de percu- 
sión caro y voluminoso. 

Los sintetizadores de teclado tienen 
ya la posibilidad de sonar virtualmente 
como cualquier instrumento que tú 
elijas. Si a ello se le añade la posibi- 
lidad de programar sus ejecuciones, se 
abre todo un nuevo mundo musical in- 
cluso ante los que parecen tener una 
mano con cinco dedos gordos. 

Ahora que los ordenadores y los 
instrumentos musicales/émplean el 
mismo tipo de tecnológía, es relativa- 
mente fácil enviar información desde 
un ordenador a un instrumento musi- 
cal y viceversa; esta es la función de 
MIDI. 



¿QUE ES EL MIDI? 

El MIDI es un estándar de inter- 
face, como ocurre con la Centronics o 
la RS 232 con las que ya te habrás en- 
contrado en relación con periféricos 
tales como impresoras y módems. En 
este caso, aunque el MIDI se utiliza 
exclusivamente en conexión con el 
mundo de la música, el papel de la in- 
terface es exactamente el mismo: la 
transferencia de información de un si- 
tio a otro, con un formato normali- 
zado. Su principal función como es- 
tándar es garantizar que la informa- 
ción se transmita de tal forma que 
cualquier tipo de equipo compatible- 
MIDI sea capaz de entender a la per- 
fección la información que recibe. 

Ha habido varios intentos anterio- 
res para imponer una norma de co- 
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municación entre instrumentos musi- 
cales, pero ninguno de ellos ha con- 
seguido lograr una aceptación gene- 
ralizada. En el caso del MIDI, las 
perspectivas parecen ser diferentes, ya 
que todos los sintetizadores y máqui- 
nas de percusión producidas por los 
dos principales fabricantes de teclados 
del mundo, Yamaha y Roland, se 
adaptan a la nueva norma y actual- 
mente está haciendo su aparición una 
nueva gama de ordenadores compati- 
bles con dicha norma. Parece ser que 
la norma es universalmente aceptada, 
tanto por los fabricantes de instrumen- 
tos musicales electrónicos como por 
los de ordenadores susceptibles de ser 
conectados a ellos. 

Todo equipo compatible con MIDI 
tiene tres conectores DIN de cinco pi- 
nes, que llevan las denominaciones 
«IN», «OUT» y «THRU» (algunos 
equipos MIDI más antiguos puede 
que no lleven el conector «THRU»). 
El conector «IN» permite que el 
equipo reciba señales MIDI desde 
otro equipo MIDI. Con «OUT» ocu- 
rre exactamente lo contrario, permi- 
tiendo que un equipo MIDI envíe se- 
ñales MIDI a otro equipo MIDI. Por 
medio de «THRU» se envía una copia 
directa de la información que le llega 
a un equipo MIDI hacia otro equipo 
MIDI. Esto significa que se puede ac- 
tuar sobre varios dispositivos al mismo 
tiempo, conectándolos a través de sus 
conectores «THRU». Por eso los equi- 
pos que no dispongan del conector 
«THRU» son mucho más limitados en 
sus prestaciones. 
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El estándar MIDI permite transmi- 
tir separadamente hasta 16 canales de 
información al mismo tiempo. Cada 
canal permite al músico controlar un 
instrumento por separado, pero la in- 
formación coexiste sobre el mismo 
hilo. Cada dispositivo «se sintoniza» 
con la información que se le está en- 
viando, de una forma algo semejante 
a la que tiene un televisor de sintoni- 
zarse en un determinado canal. 

¿COMO SE UTILIZA EL MIDI? 

El MIDI está en el mercado desde 
1982, aunque en principio sólo llamó 
la atención de unos cuantos propieta- 
rios de micros domésticos. Los músi- 
cos han utilizado el MIDI para atacar 
unos instrumentos a partir de otros. 
Por ejemplo, se puede hacer que dos 
sintetizadores produzcan sonidos di- 
ferentes, pero al mismo tiempo a par- 
tir de un solo teclado, conectando 



Un bus de MIDI puede contener 
hasta 16 canales de información que 
controlen otros tantos instrumentos. 



para ello ambos instrumentos por me- 
dio de una interface MIDI y tocando 
en el teclado de uno de ellos. 

El MIDI también permite a un mú- 
sico conectar una máquina de percu- 
sión a un teclado y sincronizar un 
ritmo con una determinada melodía. 
También es posible conectar un se- 
cuenciador. Un secuenciador es un 
dispositivo capaz de recordar lo que se 
ha tocado y de volver a ejecutarlo. Los 
hay de dos tipos: de tiempo real y de 
pasos. Un secuenciador de tiempo real 
ejecuta exactamente lo que el músico 
ha tocado, mientras que un secuencia- 
dor por pasos literalmente va reco- 
rriendo la melodía paso a paso, mien- 
tras el músico va tocando las notas una 
a una, cubriendo los intervalos indi- 



LA 

REDACCION 
CAMBIA 
DE 

DIRECCION 




VMM T¡- 




— Aribau— 
n.° 18S 

planta, 1 
08021 

Barcelona 



====== : 

EL C64 COMO ESTACION 
METEOROLOGICA 



Para poder determinar de forma pre- 
cisa la evolución del tiempo atmosférico 
es imprescindible recoger un gran nú- 
mero de datos referentes al estado cli- 
mático de la atmósfera. 

Normalmente esta tarea la realiza el 
meteorólogo encargado de la estación 
correspondiente, anotando los datos 
climáticos más relevantes cada cierto 
período de tiempo. Con la ayuda de 
nuestro ordenador esta labor puede 
ser fácilmente automatizada. Para ello 
sólo hace falta disponer de los inter- 
faces o sensores adecuados capaces de 
convertir las variaciones de las mag- 
nitudes a medir en variaciones inteli- 
gibles por el ordenador. La calidad de 
esta conversión nos marcará la fiabi- 
lidad de nuestra estación. La ventaja 
de realizar las observaciones con or- 
denador es clara: es posible obtener 
un número elevado de datos de forma 
objetiva, almacenarlos e incluso inter- 
pretarlos automáticamente. Además, 
los sensores pueden colocarse en cual- 
quier lugar aunque éste sea de difícil 
accesibilidad y un mismo ordenador 
puede controlar la información de va- 
rias estaciones. 



Las magnitudes a medir en una es- 
tación meteorológica son de lo más va- 
riadas, pero nos hemos centrado en las 
cuatro siguientes: 

— Detección de insolación 

— Medición de la presión atmosfé- 
rica 

— Medición de la temperatura 

— Detección de la intensidad de 
lluvia 

Para realizar cada una de estas fun- 
ciones se precisa un interface distinto. 
Quizá se eche en falta un medidor de 
humedad. Esto se debe a que única- 
mente podemos utilizar cuatro senso- 
res de forma simultánea con nuestro 
Commodore, como más adelante ex- 
plicaremos. No obstante, el sensor 
que precisa un detector de humedad 
es idéntico al del medidor de presión, 
por lo que puede reemplazarse otro 
detector (como el de insolación, que 
no es muy relevante) por el de hu- 
medad. 

Es evidente que los sensores deben 
controlarse a través de un programa 
adecuado. Todos ellos irán conectados 
a la entrada reservada para los paddles 
situada en el port del joystick. Cada 
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port dispone de dos entradas para 
paddle, con lo que en total dispone- 
mos de cuatro entradas para nuestros 
sensores. 

A continuación describiremos el 
funcionamiento de estas entradas,- la 
forma de realizar físicamente los sen- 
sores y las rutinas adecuadas para la 
correcta detección. Finalmente se des- 
cribirá el programa principal, encar- 
gado de: coordinar todas las tareas, al- 
macenar y presentar los datos e inter- 
pretar los resultados. 

EL CONVERSOR A/D 

Las señales provenientes del mundo 
exterior, en este caso de los sensores, 
son siempre analógicas, lo que quiere 
decir que pueden tomar cualquier va- 
lor dentro de unos márgenes defini- 
dos. Cualquier ordenador es incapaz 
de manejar esta clase de información 
haciéndose imprescindible el discreti- 
zarla. Discretizar consiste en asignar 
un valor numérico a un margen de va- 
lores analógicos; cuanto más estrecho 
sea este margen mejor será la conver- 
sión. Nuestro ordenador dispone de 
dos de estos conversores analógico-di- 
gitales (A/D) dentro del chip de so- 
nido y a los que se puede acceder por 
las entradas destinadas a los paddles. 

Estos conversores son un tanto pe- 
culiares ya que están controlados por 
variaciones de resistencia y no de ten- 
sión, que es lo habitual. La resistencia 
variable debe colocarse entre las pa- 
tillas de alimentación (5 v.) y la del 
conversor correspondiente (POTX o 
POTY). A través de ella circulará una 
corriente que irá cargando un conden- 
sador interno. Transcurrido un cierto 
tiempo, el ordenador lee la tensión 
que éste ha alcanzado y la guarda, dis- 
cretizándola, en un registro. La ten- 
sión que alcanza el condensador es 
proporcional a la corriente, pero ésta 
es inversamente proporcional a la re- 
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sistencia conectada. No obstante, se 
almacena un valor proporcional a la 
resistencia. Una vez leída la tensión, 
el condensador se descarga y el pro- 
ceso se repite, realizándose 2.000 ve- 
ces en un segundo. 

Debe tenerse la precaución de no 
conectar resistencias inferiores a los 
500 Q ya que el chip puede dañarse. 
Una resistencia mayor de 400 K pro- 
porciona siempre un valor 255. La ca- 
racterística valor almacenado-resisten- 
cia conectada es similar a la mostrada 
en la figura 1. Interesa siempre tra- 
bajar en la zona lineal, es decir, para 
valores de resistencia hasta 100 K. En 
esta zona se cumple la siguiente ley: 

Valor almacenado = Valor de R (en 
kQ) 

lo cual es muy adecuado para obtener 
una' buena respuesta de los sensores. 

Hemos dicho que sólo se dispone de 
dos conversores A/D, pero sin em- 
bargo existen 4 entradas de paddle. 
Existe la posibilidad de conmutar de 
port y hacer que el conversor A/D ac- 
túe sobre uno u otro. Para ello basta 
alterar el bit más significativo de la po- 
sición 56320, como más tarde expli- 
caremos. De esta forma es posible tra- 
bajar con cuatro sensores a la vez. Las 
conexiones a efectuar en los ports se 
ilustran en la figura 1. 



DETECTOR DE INSOLACIÓN 

El detector de insolación es el pri- 
mer sensor que vamos a comentar. 
Normalmente en los observatorios se 
construye con una esfera de cristal que 
actúa de lupa y que va quemando un 
papel de registro según el grado de in- 
solación. El detector que vamos a 
construir será más sensible ya que fun- 
cionará incluso para ambientes bas- 
tante oscuros. A partir del grado de 
luz recibida podremos discernir in- 
cluso si el cielo está soleado o cubierto 
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y con qué intensidad lo está. Podrá 
también obtenerse de forma automá- 
tica las horas de puesta y salida del 
Sol. 

El sensor a emplear es de lo más 
simple ya que únicamente consiste en 
una resistencia de protección y en una 
célula fotoconductora. Esta última no 
es más que un dispositivo que varía su 
resistencia de forma muy acusada y 
dependiendo del nivel de luz que in- 
cide sobre ella. Para niveles altos de 
iluminación la resistencia se mantiene 
en un valor bajo, mientras que para 
medios y bajos aumenta rápidamente. 
De esta forma pueden discernirse am- 
bientes nublados de claros con facili- 
dad. La célula fotoconductora o LCR 
debe recubrirse con un tubo para evi- 
tar que incida luz de forma lateral que 
perturbe la medición. El tubo debe te- 
ner las paredes interiores negras y ha 
de enfocarse directamente hacia el 
cielo, evitando que el Sol incida sobre 
la célula. Puede incluirse en una caja 
transparente para protegerlo de la llu- 
via. La forma de conectarlo a los ca- 
bles que llegan del ordenador es in- 
diferente. El esquema del sensor lo te- 
nemos en la figura 2. 



Ahora es preciso desarrollar una ru- 
tina que lea la información del port, 
que viene del sensor, y que la alma- 
cene. El programa es el siguiente: 

1000 FOR I = TO 9 : TP = TP 
+ PEEK (54297) : NEXT 

1010 LU (IN) = (TP/10 - 14)*0, 
8 : TP = 

1020 RETURN 

Esta rutina no es ejecutable hasta 
que haya sido completado el programa 
principal. Lo que hace básicamente es 
tomar diez muestras, sumarlas y divi- 
dirlas por diez para obtener así un va- 
lor medio. Esto debe hacerse para evi- 
tar mediciones incorrectas. Por ejem- 
plo, la sombra de un pájaro o avión 
puede llevar a equívocos o incluso el 
destello de un relámpago. Tomando 
una media se compensan los posibles 
errores. 

En la variable LU (IN) se introduce 
el valor medio leído, de forma que 
para máxima iluminación LU valga 
cero y que para mínima valga 192. 
Para el montaje realizado se obtiene 
un valor de TP mínimo de 14 con má- 
xima luz. Este valor dependerá en 
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cada caso del material empleado para 
hacer el sensor y debe ajustarse en el 
programa (línea 1010) si difiere del in- 
dicado. El ajuste se hará obteniendo 
el valor de TP medio con máxima luz. 

IN corresponde a una variable del 
programa principal e indica el instante 
en el que se ha tomado la muestra. 

Según el valor de LU (IN) obtenido 
puede actuarse en consecuencia. Por 
ejemplo, al ponerse el Sol este valor 
aumenta rápidamente. Estableciendo 
un valor de referencia, que debe ob- 
tenerse haciendo varias pruebas, po- 
demos detectar con precisión la hora 
de puesta del Sol y la del amanecer. 
Esto nos permitiría también actuar so- 
bre un sistema de iluminación, ha- 
ciendo que éste se active al detectar el 
ocaso. Para ello debe utilizarse el port 
del usuario, como más tarde veremos. 



MEDIDOR BAROMÉTRICO 

El barómetro es un instrumento in- 
dispensable para conocer el estado 
ambiental y su evolución. Desgracia- 
damente no existe ningún dispositivo 
sencillo que tenga una variación de re- 
sistencia apreciable según los peque- 
ños cambios de presión. Por ello se 
hace imprescindible partir de un ba- 
rómetro convencional para poder 
construir nuestro sensor. Éste no será 
más que una resistencia variable con- 
trolada por la aguja del barómetro. 

El proceso de fabricación del sensor 
es el siguiente: Se recorta un círculo 
de papel de dimensiones similares a 
las del barómetro. Sobre el papel se 
dibuja un trozo de corona circular de 
1 cm de ancho y pegada al borde, que 
se extienda desde el valor mínimo de 
presión a detectar (720 mm) hasta el 
valor máximo (790 mm). Sobre la co- 
rona se adhiere carbón en polvo de 
forma lo más uniforme posible. En el 
extremo de la aguja se coloca una lá- 
mina de papel de aluminio de forma 
que haga contacto con la pista de car- 
bón. Así un desplazamiento de la 
aguja se transforma en una variación 
lineal de la resistencia. Se ha de pro- 
curar que entre los extremos de la 
pista exista una resistencia de unos 100 
K. Si no se alcanza este valor debe li- 
jarse la pista para eliminar carbón; si 
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se supera debe añadirse más carbón o 
ensanchar el tamaño de la misma. En 
la figura 3 se ilustra el aspecto final del 
sensor. 

Este sensor debe conectarse de 
forma análoga a como se hizo con el 
detector de insolación. Se introduce 
también, y a efectos de protección, 
una resistencia de 12 KQ. 

Un sensor de humedad se construye 
de forma idéntica a la descrita. 

El programa que controla este de- 
tector es muy similar al desarrollado 
para el detector de luz: 

2000 FOR I = TO 9 : TP = TP 
+ PEEK (54298) : NEXT 

2010 PR (IN) = (TP/10 - 14)*2 
: TP = 

2020 RETURN 

Funciona de manera análoga al an- 
terior. Ahora se consulta la posición 
54298, correspondiente a POTY. Los 
valores extremos de PR son 0, lo que 
equivale a 720 mm, y 172, que equi- 
vale a 790 mm. La precisión de la me- 
dida depende de lo uniforme que sea 
el sensor, pero en general es bastante 
buena. 



MEDIDOR DE TEMPERATURA 

El sensor de temperatura es el más 
delicado de todos. Si dispusiéramos de 
un termómetro de aguja podríamos 
construirlo tal y como hicimos con el 
de presión. No obstante, la precisión 



obtenida sería pequeña debido al am- 
plio margen de temperaturas que es 
necesario cubrir (de -20 °C hasta 
40 °C, como mínimo). Lo más ade- 
cuado es hacer uso de un pequeño cir- 
cuito electrónico que funcione como 
sensor como el mostrado en la fig. 4. 

El circuito consta básicamente de 
dos amplificadores operacionales y un 
puente de resistencias una de las cua- 
les varía de forma apreciable con la 
temperatura. El desequilibrio del 
puente se debe a las oscilaciones tér- 
micas. A la salida del circuito, se ob- 
tiene una tensión entre y 5 V que es 
proporcional a la temperatura. Esta 
tensión se aplica a través de una resis- 
tencia a la entrada POTX del port 2 
directamente. Cuanto más tensión 
haya, menor será el valor almacenado 
en memoria. 

La alimentación del circuito puede 
tomarse directamente del port al que 
está conectado el sensor, ya que su 
consumo es pequeño. La precisión al- 
canzada puede ser elevada siempre 
que el circuito se ajuste conveniente- 
mente. Este ajuste depende de las ca- 
racterísticas de la resistencia sensora, 
que deberá ser del tipo NTO, es decir, 
debe disminuir su valor conforme au- 
menta la temperatura. Deben seguirse 
los siguientes pasos: 

Una vez adquirida la NTO deben 
consultarse sus características y parti- 
cularmente es necesario conocer su re- 
sistencia a -20 °C y su coeficiente de 
variación térmico. Mediante un óh- 
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metro deben ajustarse las resistencias 
del puente al valor de la NTO a 
—20 °C. Hecho esto, debe obtenerse 
el valor de R a a través de la expresión 

R. - 20° de NTO 

R, = (en kQ) 

coeí. térmico de NTO* W"C 

Si esta relación se cumple, justa- 
mente cuando la temperatura sea de 
40 °C la salida dará 5 V de tensión. 
Para la temperatura de —20 °C la sa- 
lida es nula. Debe también procurarse 
que las resistencias que actúan sobre 
el primer operacional sean lo más 
iguales posible. 

Ahora tendremos un valor 255 si se 
detectan —20 °C y 8 si la temperatura 
es de 40 °C, pero recordemos que la 
conversión sólo es correcta si el valor 
detectado es menor que 100. Me- 
diante unos sencillos cálculos se com- 
prueba que este valor se alcanza 
cuando la temperatura es de — 17, 
6 °C, con lo que el sensor funcionará 
bien entre esta temperatura y 40 °C. 

El programa que controla el sensor 
es similar a los anteriores: 

3000 FOR í = TO 9 : TP - TP 
+ PEEK (54297) : NEXT 

3010 TM (IN) = (TP/10 - 8)*2 : 
TP - 

3020 RETURN 

Los valores extremos de TM serán 
0, para 40* °C y 184, para -17,6 °C. 



Este sensor se coloca en el port 2, por 
lo que para acceder a esta rutina de- 
berá actuarse sobre el registro 56320. 

Lo habitual a la hora de medir la llu- 
via es utilizar pluviómetros que no son 
más que recipientes calibrados que in- 
dican la cantidad de agua caída a lo 
largo de un cierto período de tiempo. 
Esto no deja de ser una medida a pos- 
teriori, que no proporciona informa- 
ción sobre la intensidad de lluvia en un 
instante dado. El sensor que vamos a 
desarrollar permitirá obtener registros 
de precipitación instantánea. 

El detector será un simple micró- 
fono de carbón como los utilizados en 
los aparatos telefónicos, encerrado 
dentro de una lata metálica. Las gotas 
de lluvia al incidir sobre la lata origi- 
narán un ruido, amplificado en cierta 
medida por la misma, captable por el 
micrófono. Éste responderá variando 
su resistencia de acuerdo con la inten- 
sidad de sonido (o lo que es lo mismo, 
de lluvia) captado. La lata debe estar 
abierta por un lado y el micrófono 
debe situarse junto a la pared cerrada, 
ya que la presión acústica es mayor en 
ese punto. Debe procurarse situar el 
conjunto en ambientes poco ruidosos. 

Por lo que respecta a la conexión en 
el port, ésta se efectúa de la forma ya 
conocida a través de una resistencia de 
protección. 

La figura 5 muestra el aspecto final 
del sensor. 

El programa de control es ahora un 



poco diferente, ya que se hace nece- 
sario tomar un número mayor de 
muestras. 

4000 FOR I = TO 81 : TP = 
TP + PEEK (54298) - 8 : 
NEXT 

4010 LL (IN) = TP : TP - 
4020 RETURN 

El valor en ausencia de ruido es 8 
para el micrófono utilizado. Debe mo- 
dificarse el valor de la línea 4000 en 
caso de no obtenerse el valor especi- 
ficado. En LL queda almacenado un 
número que será proporcional a la in- 
tensidad de lluvia; en ausencia de ésta 
vale cero. El valor almacenado no está 
expresado en ninguna unidad ya que 
se trata de una medición comparativa. 
Con los datos recogidos es posible es- 
tablecer un número que establezca la 
lluvia caída a lo largo de un día. Esta 
tarea correrá a cargo del programa 
principal como ya veremos. 

Se encargará de coordinar todas las 
tareas: lectura de los sensores, alma- 
cenamiento de la información, presen- 
tación e interpretación de la misma. El 
programa comienza preguntando la 
hora del día en la que comienza a eje- 
cutarse para así ajustar el reloj. Cada 
cinco minutos toma muestras de los 
cuatro sensores y las almacena, con lo 
que al finalizar el día habrá tomado un 
total de 288 muestras. Transcurrido el 
día traza las gráficas correspondientes. 
Se precisa el caríucho jimon's BASIC 
para la ejecución del programa. 

10 DIM LU(288},PR(288), 

TM(288),LL(288):IN = 
20 INPUT"(SHIFT CLR) QUE 

HORA ES (HH,MM)" ; HH,MM 
30 HF$ = RIGHT$(STR'$(HH),2) + 

RIGHT$(STR$(MM),2) 
40 TI$-HF$ + "00": PM=MM - 5 
50 PM = PM + 5: IF PM>= 60 

THEN PM-PM - 60 
60 IF VAL(MID$(TI$,3,2)) = PM 

THEN 80 
70 GOTO 60 
80 I F VAL(LEFT$(TI$, 

4)) = VAL(HF$) - 5 THEN 200 
90 IN = IN + 1: GOSUB 1000: 

GOSUB 2000 
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100 POKE 56334, PEEK(56334) 
AND 254: POKE 56320,191 
110 GOSUB 3000: GOSUB 4000 
120 POKE 56334, PEEK(56334) 
OR 1 

130 TI$ = LEFT$(TI$,4) + "0" + 

RIGHT$(STR$(VAL(RIGHT$ 

(Tl$,l)) + l),l) 
140 PRINT"(SHIFT CLR) 

VALORES ACTUALES:" 
150 PRINT"(2 CRSDWN)(3 

SPOLUZ:"; 192-LU(IN) 
160 PRINT"{2 CRSDWN)(3 

SPC)PRESION:";720 + 

INT(700/172*PR{IN))/10i 

"tnm" 

170 PRINT"(2 CRSDWN)(3 

SPC)TEMPER.:" ; 40-INT(576/ 

184*TM(IN))/10;"C." 
180 PRINT"(2 CRSDWN)(3 

SPOLLUVIA :";LL{IN) 
190 GOTO 50 
200 PRINT"(SHIFT CLR) 

GRAFICAS DEL DIA:" 
210 PRINT"(2 CRSDWNK3 

SPC)I NTENSIDAD DE LUZ": 

PAUSE 4 
220 HIRES 1,6: LINE 11,0,11, 

200,1 = 1-1 NE 0,192,320, 

192,1 

230 FOR I = 1 TO 288: PLOT I + 
11,LU(I),1: NEXT: PAUSE 10 

240 NRM: PRINT"(SHIFT CLR)(3 
CRSDWN) PRESION": 



PAUSE 4 
250 HIRES 1,6: LINE 11,0,11, 
200,1: LINE 0,192,320, 
192,1 

260 FOR I = 1 TO 288: PLOT 1 

+ 11, 172-PRÍI), 1: NEXT: 

PAUSE 10:NRM 
270 PRINT"(SHIFT CLR) 

TEMPERATURA": PAUSE 4 
280 HIRES 1,6: LINE 11,0,11, 

200,1: LINE 0,192,320, 

192,1 

290 FOR I = 1 TO 288: PLOT I 
+ 11,TM(I),1: NEXT: PAUSE 
10 

300 NRM: PRINT"{SHIFT CLR)(3 
CRSDWN) LLUVIA": PAUSE 4 

310 FOR I = 1 TO 288: LL - LL 
+ LUI) 

320 IF LL(I)>MX THEN MX=LL(I) 
330 NEXT: IF MX=0 THEN 
MX=1 

340 HIRES 1,6: LINE 11,0,11, 
200,1: LINE 0,192,320, 
192,1 

350 FOR I = 1 TO 288: PLOT I 
+ 11,191*(1-LL(I)/MX),1: 
NEXT:PAUSE 10 

360 NRM: PRINT"(SHIFT CLR) 
LLUVIA TOTAL=";LL : END 

El programa funciona del siguiente 
modo. En un principio se inicializan 
las variables que van a almacenar los 



datos y se pide la hora (hora y mi- 
nuto). El reloj se pone en hora supo- 
niendo que los segundos son 00. A 
continuación se entra en el bucle prin- 
cipal que lo único que hace es esperar 
que pasen cinco minutos. Si esto se ha 
producido se comprueba entonces si 
se ha alcanzado la hora final, es decir, 
si ha transcurrido un día completo. 
Hasta que esto último no suceda se 
van leyendo los sensores cada cinco 
minutos. Para leer los sensores del 
port 1 basta con llamar a las rutinas 
correspondientes (en 1000 y 2000), 
pero para leer los conectados al port 2 
debe previamente activarse el bit 7 de 
la posición 56320. Esto únicamente 
puede hacerse si se desactivan las in- 
terrupciones, principalmente la de- 
bida al reloj del sistema. Como puede 
suponerse esto trae consigo una pa- 
ralización del reloj del ordenador que 
hará que se retrase cada vez que se 
lean los sensores. Las rutinas de lec- 
tura están estructuradas de tal manera 
que el retraso que se produce es de un 
segundo. La línea 130 se encarga de 
arreglar este retraso. » 

Cada vez que se leen los sensores 
aparecen los datos obtenidos en pan- 
talla y de ello se encargan las líneas 
140 a 180. 

Una vez alcanzada la hora final se 
pasa al trazado de las gráficas del día 
con ayuda de las rutinas gráficas del 
cartucho de ampliación del BASIC. Se 
calcula también la lluvia total caída. 

El programa desarrollado es lo más 
simple posible y puede ser desarro- 
llado todo lo que se quiera según nues- 
tras necesidades. Por ejemplo es muy 
fácil desarrollar rutinas que, a partir 
de los datos medidos, nos indiquen los 
valores medios y extremos (máximos y 
mínimos) de las diferentes magnitudes 
medidas. También podría hacerse que 
el ordenador interpretara los datos 
medidos y nos indicara si el ambiente 
es frío, caluroso, si está nublado o 
llueve, si estamos bajo un anticiclón o 
borrasca, etc. Por último, como ya 
mencionamos, puede utilizarse la me- 
dida de intensidad de luz para activar 
un sistema de iluminación. Para ello, 
bastaría con comparar los valores de 
LU leídos con un valor de referencia 
que indique el umbral de oscuridad. 
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Ven con nosotros a probar suerte en 
Las Vegas con el juego de la máquina de 
frutas que te ofrece INPUT. No tengas 
miedo: nuestra tragaperras no te va- 
ciará los bolsillos. 

La gran mayoría de bingos y salones 
de juego han introducido, en lugar de 
las antiguas máquinas de factura me- 
cánica, otras modernas de frutas 
electrónicas, con una panta- 
lla de televisión que 
mues- 
tra las 
ruletas. 
Este artículo , 
se divide 
en. dos 
partes, 
y trata 
de enseñarte 
cómo puedes 
imitar una de estas innovadoras má- 
quinas con la ayuda de tu micro. 

El juego está dotado de todos los 
componentes que puedes encontrar en 
una máquina de frutas de verdad — pa- 
rada, apuesta, movimiento, etcé- 
tera — j y se dan gráficos animados 
para simular las ruletas mecánicas. 

El disponer de un programa como 
éste para jugar te va a salvar de que 
un jugador avaricioso te desplume, 
aunque tampoco tú te vas a hacer rico 
con él. No olvides, como siempre, 
guardar (SAVE) esta parte del pro- 
grama que completarás con la se- 
gunda. Para hacer funcionar (RUN) el 
programa habrás de esperar a tenerlo 
completo, aunque ya puedes probar la 
visualización de algunos gráficos fun- 
damentales. 

PUESTA A PUNTO DE LOS 
GRAFICOS 

Las líneas 120 a 140 contienen los 
DATA para la fruta de colores. Las 
instrucciones del color son entradas 



directamente mediante códigos de 
control, según hemos explicado en 
esta revista en anteriores ocasiones, al 
objeto de ahorrar memoria; los lista- 
dos aparecen en color. Para entrar es- 
tas líneas, utiliza el modo extended 
(CAPS SHIFT y SYMBOL SHIFT), 
pulsando después la tecla de color 
apropiada. Seguidamente pasa al 
modo de gráficos (CAPS SHIFT y 9), 
seguido de las letras que hay en el lis- 
tado. 

10 LET HFLAG-0: POKE 23658, 
8: RESTORE 20: GO SUB 
840 

20 DATA 14,31,31,31,31,15,3, 

1,56,252,252,252,252,248, 

224,192 
30 DATA 49,42,51,42,50,255, 
- 255,255,: 

84,255,255, 
40 DATA 3,4, 

62,62,28, 

190,125, 

62,28, 

0,0. 


50 DATA 
0,0,16, 
28,15, 

7,3,0, 

4,12,26,56,248,240,224,0 
60 DATA 0,0,7,15,31,31,15,7, 

8,248,240,240,224,224, 

192,128 
70 DATA 1,3,3,7,15,15,24,1, 

128,192,192,224,240,240, 
■ 24,128 

80 DATA 1,7,15,31,31,31,31, 
15,224,240,240,240,240, 
224,192,128 

90 DATA 8,8,8,8,73,42,28,8, 
16,56,84,146,16,16,16,16 

100 FOR ¡ = USR "a" TO USR 
"p" + 7: READ a: POKE i, a: 




NEXT i 
110 LET TOTAL=100 
120 DATA "ABV'IJV'GH", 

"CD","IJY'AB","EF'V'KL", 
"MN J, ,"EF","GH","MN" 
130 DATA "IJY'ABV'KL", 
"MN","EF","GH","CD", 
"EF","AB","CD","IJ","MN" 
140 DATA "EF", "MN", "GH", 
"KL","CD","AB","IJ","AB", 
"IJ","CD","IJ","MN" 
150 DIM A$(24,2): FOR i = l TO 
12: READ A$(¡): LET 
A$(i+12) A$(i): NEXT i 
160 DIM B$(24,2): FOR 1=1 TO 
12: READ B$(í): LET 
B$(i+12)-B${¡): NEXT i 
170 DIM C$(24,2): FOR i=l TO 
12: READ C$(i): LET 
C$(¡ + 12)=C${¡): NEXT i 
840 BORDER 6: PAPER 6: INK 

2: CLS 
850 PRINT "" 

860 REM FOR ¡-0 TO 1: FOR 
j = TO 31: PRINT PAPER 
7¡AT i,j¡" " : NEXT j: NEXT ¡ 
870 FOR i = 2 TO 5: PRINT AT i, 
0; PAPER 6," ";AT ¡,28; 
" NEXT i 
880 PRINT PAPER 6; INK 2;AT 
0,6;" 10 PESETAS UNA 
JUGADA" 
890 PRINT PAPER 6¡ 
INK 4;AT 

1,4;" "; 

AT2,4; 

900 PRINT 
PAPER 6 
INK 4;AT 
1,4;" 
AT 3,4; 
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243,255,252,0,0 10240 
10135 DATA 192,192,192,0,0, 

0,0,0 10245 
10140 DATA 0,0,10,34,170, 

136,170,162 10250 
10145 DATA 12,48,254,185, 

42,162,170,34 10255 
10150 DATA 0,0,128,32,168, 

40,168,136 10260 
10155 DATA 170,40,10,2,0,0, 

0,0 10265 
10160 DATA 0,0,0,0,0,0,0,0 
10165 DATA 168,138,170,34, 10270 

168,168,32,0 
10170 DATA 102,102,102,0,0, 10275 

0,0-0 

10175 DATA 168,160,128,0,0, 10280 
0,0,0 

10180 DATA 0,0,0,0,0,3,3,3 10285 
10185 DATA 4,16,84,252,252, 

255,255,255 10°90 
10190 DATA 0,0,0,0,0,0,0,0 
10195 DATA 3,15,15,15,15, 10295 

15,3,0 

10200 DATA 255,255,255, 10300 

255,255,255,255,0 
10205 DATA 0,192,192,192, 10305 

192,192,0,0 10310 
10210 DATA 0,0,0,0,1,1,1,1 
10215 DATA 16,16,84,68,81, 10315 

81,81,81 10320 
10220 DATA 0,0,0,0,0,0,0,0 
10225 DATA 1,5,21,85,0,0,0,0 10325 
10230 DATA 81,84,85,85,16, 

0,0,0 10330 
10235 DATA 0,64,16,84,0,0,0, 

10335 
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DATA 252,204,204, 
204,204,204,252,0 
DATA 240,48,48,48,48, 
48,252,0 

DATA 252,12,12,252, 

192,192,252,0 

DATA 252,12,12,60,12, 

12,252,0 

DATA 204,204,204, 
252,12,12,12,0 
DATA 252,192,192, 
252,12,12,252,0 
DATA 192,192,192, 
252,204,204,252,0 
DATA 252,12,12,12,12, 
12,12,0 

DATA 252,204,204, 

252,204,204,252,0 

DATA 252,204,204, 

252,12,12,12,0 

DATA 0,0,0,0,10,32,40, 

42 

\TA 12,48,48,240,12, 
13^,130,130 
DATA 0,0,0,0,160,8, 
136,168 

DATA 10,0,0,0,0,0,0,0 
DATA 0,40,130,162, 
170,40,0,0 

DATA 160,0,0,0,0,0,0,0 
DATA 252,192,192, 
192,192,192,252,0 
DATA 240,204,204, 
204,204,204,240,0 
DATA 252,192,192, 
240,192,192,252,0 
DATA 252,192,192, 



240,192,192,192,0 
10340 DATA 48,204,192,192, 

204,204,48,0 
10345 DATA 204,204,204, 

252,204,204,204,0 
10350 DATA 252,48,48,48,48, 

48,252,0 
10355 DATA 192,192,192, 

192,192,192,252,0 
10360 DATA 204,204,252, 

252,204,204,204,0 
10365 DATA 48,204,204,204, 

204,204,48,0 
10370 DATA 240,204,204, 

240,192,192,192,0 
10375 DATA 240,204,204, 

240,204,204,204,0 
10380 DATA 48,204,192,48, 

12,204,48,0 
10385 DATA 252,48,48,48,48, 

48,48,0 
10390 DATA 204,204,204, 

204,204,204,48,0 
10395 DATA 12,48,48,252,48, 

240,204,0 
10400 DATA 0,0,0,60,60,0,0/0 
10405 DATA 255,255,255, 

255,255,255,255,255 

Las líneas 40 a 50 establecen una vi- 
sualización donde se pide al jugador 
que espere. El Commodore 64 tarda 
algún tiempo en establecer los UDG 
necesarios para la fruta. 

Las líneas 55 a 65 leen (READ) los 
DATA del final del programa (ob- 
serva las líneas 10000 a 10405) para es- 
tablecer los UDG. 



INSTRUCCIONES 



70 POKE 53282, 7:P0KE 53283, 
2:P0KE 53280, 7:P0KE 
53281,7 
75 PRINT "[SHIFT+CLR/HOME] 
[CTRL+1]";CHR$(14); 
SPC(15);"[SHIFT+S] 
[SHIFT+U][SHIFT+P] 
[SHIFT+E][SHIFT+R] 
[SHIFT+F][SHIFT+R] 
[SHIFT+U][SH!FT+I] 
[SHIFT+T]" 
80 PRINT "[CRSR 

ABAJ0][CTRL+3][SH¡FT 
+ D1ISP0NES DE 1 LIBRA 
(£1) PARA EMPEZAR ." 
85 PRINT "[SHIFT+C1ADA VEZ 
JUEGAS 10 PENIQUES, 
HASTA QUE" 
90 PRINT "TE QUEDES SIN 
DINERO. ":PRINT "[CRSR 
ABAJO][CTRL+l][SHIFT+C] 
[SHIFT+0][SHIFT+N] 
[SHIFT+T][SHIFT+R] 
[SHIFT+0][SHIFT+L] 
[SHIFT+E][SHIFT+S]:-" 
95 PRINT "[CRSR 

ABAJO][COMM + 2]<[SHIFT 
+ E][SHIFT+S][SHIFT+P] 
[SHIFT+A][SHIFT+C] 
[SHIFT+l][SHIFT+0]>", 
"-[SHIFT+UANZA EL JUEGO" 
100 PRINT "<1>", 

" — [SHIFT+C] ANGELA LOS 
-[SHIFT+HHSHIFT+O] 
[SHIFT+LHSHIFT+D] 
[SHIFT+S]-" 
105 PRINT "<2>", 

"-[SHIFT + D1ETIENE 
BANDA IZQUIERDA" 
110 PRINT "<3>", 

"-[SHIFT+D]ETIENE 
BANDA CENTRAL" 
115 PRINT "<4>", 

" — [SHIFT+DJETIENE 
BANDA DERECHA" 
120 PRINT "<5>", 

"-[SHIFT+A1VANZA BANDA 
IZQDA.f 2 

ESPACIOS][SHIFT+A][ 
2*SHIFT+R][SHIFT+I] 



[SHIFT+B][SHIFT+A]" 

125 PRINT "<6>", 

"-[SHIFT+A1VANZA BANDA 
CENTRAL [SHIFT+AH 
2*SHIFT + R][SHIFT+I] 
[SHIFT+B][SHIFT + A]" 

130 PRINT "<7>", 

"-[SHIFT+A1VANZA BANDA 
DERECHA [SHIFT+A][ 
2*SHIFT+R][SHIFT+I] 
[SHIFT+B][SHIFT + A]" 

135 PRINT "<8>", 

"-[SHIFT+A1VANZA BANDA 
IZQDA.t 2 ESPACIOS] 
[SHIFT+AHSHIFT+B] 
[SHIFT+A][SHIFT+J] 
[SHIFT+O]" 

140 PRINT "<9>", 

"-[SHIFT+AJVANZA BANDA 
CENTRAL [SHIFT+A] 
[SHIFT+BHSHIFT+A] 



[SHIFT+J][SHIFT+0]" 

145 PRINT "<0>", 

"-[SHIFT+AJVANZA BANDA 
DERECHA [SHIFT+A] 
[SHIFT+B][SHIFT+A] 
[SHIFT+J][SHIFT+0]" 

150 PRINT "<[SHIFT+R] 
[SHIFT+E][SHIFT+T] 
[SHIFT+U][SHIFT+R] 
[SHIFT+N]>", 
"-[SHIFT+R1ECOGIDA DEL 
PREMIO" 

155 PRINT "[ 2*CRSR 

ABAJO][CTRL+l][CRSR 
DCHA.][SH!FT+P]ULSAR UN 
ESPACIO PARA JUGAR..." 

160 GET A$:IF A$<>" " 
THEN160 

Las líneas 70 a 160 establecen la 
pantalla de instrucciones. 
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PREPARACION DEL JUEGO 



165 PRINT "[SH IFT+CLR/ 

H0ME]";CHR$(142):P0KE 
53280, 10:POKE 53281, 
10:POKE 53272,29 

170 POKE 53270, PEEK(53270) 
OR 16:P0KE 53282, 7:POKE 
53283, 2:IF XX=1 THEN190 

175 DI M R1%(15),R2%(15), 
R3%(15),W%{9),F${6) 

180 FOR A=0 TO 15:READ 
R1%{A),R2%(A), 
R3%(A):NEXT :FOR A=0 TO 
9:READ W%(A):NEXT A 

185 FOR A=0 TO 5:READ 
F$(A):NEXT A 

190 POKE 53280, 13:POKE 
53281,1:PRINT 

14® iüPUT Jsjeg©© 



"[SH1FT+CLR/H0ME][CRSR 
ABAJ0]'\F$(3);"[CRSR 
ARRIBA][CRSR DCHA.]"¡ 
F$(3);"[CRSR 
ARRIBA][CRSR 
DCHA.]"F$(3); 
195 PRINT "[CRSR ARRI BA][ 
4*CRSR 

DCHA.][COMM. + l][SHIFT+0] 
2[SHIFT+P]00":PRINT 
"[CRSR ABAJO]", F$(2); 
"[CRSR ARRI BA][CRSR 
DCHA.]";F$(2) ; "[CRSR 
ARRIBA][CRSR DCHA.]"; 
F$(2); 

200 PRINT "[CRSR ARRIBA][ 
4*CRSR 

DCHA.][COMM. + l][SHIFT+0] 
1[SHIFT+P]50":PRINT 
"[CRSR PBAJO]",F$(5); 



"[CRSR ARRIBA][CRSR 
DCHA.]" ; F$(5);"[CRSR 
ARRIBA][CRSR DCHA.]"; 
F$(5); 

205 PRINT "[CRSR ARRIBA][ 
4*CRSR 

DCHA.][COMM. + l][SHIFT+0] 
1[SHIFT + P]00":PRINT 
"[CRSR ABAJ0]",F$(4); 
"[CRSR ARRI BA][CRSR 
DCHA.]";F$(4);"[CRSR 
ARRIBA][CRSR DCHA.]"; 

F$(4); 

210 PRINT "[CRSR ARRIBA][ 
4*CRSR DCHA.][COMM. + l] 
[SHIFT + O]0[SHIFT+P]80": 
PRINT "[CRSR ABAJO]", 
F$(6);"[CRSR 
ARRI BA][CRSR DCHA.]"; 
F$(6);"[CRSR 



ARRI BA][CRSR DCHA.]"; 
F$(6); 

215 PRINT "[CRSR ARRIBA][ 
4*CRSR 

DCHA.][COMM. + l][SH¡FT+0] 
0[SH!FT+P]60":PRINT 
"[CRSR ABAJO]",F$(0); 
"[CRSR ARRIBA][CRSR 
DCHA.]";F$(0);"[CRSR 
ARRI BA][CRSR DCHA.]"; 
F$(0); 

220 PRINT "[CRSR ARRIBA][ 
4*CRSR 

DCHA.][COMM. + l][SHIFT+0] 
0[SHIFT+P]40":PRINT 
"[CRSR ABAJO]", F$(l); 
"[CRSR ARRI BA][CRSR 
DCHA.]";F$(1);"[CRSR 
ARRI BA][CRSR DCHA.]"; 
F$(l); 

225 PRINT "[CRSR ARRI BA][ 
4*CRSR 

DCHA.][COMM. + l][SHIFT+0] 
0[SHIFT+P]30":PRINT 
"[CRSR ABAJO]", F$(0); 
"[CRSR ARRIBAHCRSR 
DCHA.]";F$(0);"[CRSR 
ARRI BA][CRSR 
DCHA.][C0MM. + 1][ 
3*SHIFT+P][CRSR 
ABAJO]' 1 ; 
230 PRINT "[CRSR ARRIBAH 
4*CRSR 

DCHA.][COMM. + l][SHIFT+0] 
0[SHIFT+P]30":PRINT 
"[CRSR ABAJ0]",F$(1); 
"[CRSR ARRIBA][CRSR 
DCHA.]";F$(1);"[CRSR 
ARRI BA][CRSR 
DCHA.][C0MM. + 1][ 
3*SHIFT+P][CR$R 
235 PRINT "[CRSR ARRI BA][ 
4*CRSR 

DCHA.][COMM. + l][SHIFT+0] 
0[SHIFT+P]20":PRINT 
"[CRSR ABAJ0]",F$(1); 
"[CRSR ARRIBA][CRSR 
DCHA.][C0MM. + 1][ 
3*SHIFT+P][CRSR DCHA.][ 
3*SHIFT+P][ 4*CRSR 
DCHA.][SHÍFT+O]0[SHIFT+P] 
10" 



240 PRINT "[ 2*CRSR ABAJO][ 
13*CRSR DCHA.HCOMM + 7] 
[SHIFT+J][SHIFT+N] 
[SHIFT+GHSHIFT+L] 
[SHIFT+B] 

[ 2*SHIFT+ESPACI0] 
[SHIFT+P][SHÍFT+K] 
[SHIFT+B][SHIFT+M] 
[SHIFT+N][SHIFT + K] 
[SHIFT+H][SHIFT+P]"¡ 
245 GET A$:IF A$oCHR$(13) 

THEN245 
10410 DATA 0,1,2,3,5,6,6,2, 
0,5,3,4,4,6,5,6,4,3,1, 
2,0,3,0,5,2,1,4,6,5,1, 
0,6,6 

10415 DATA 1,4,3,2,0,1,5,3, 

2,4,6,6,6,4,5 
10420 DATA 200,150,100,80, 

60,40,30,20,10,0 
10425 DATA "[COMM. + l]* + , 

[CRSR ABAJOH 3*CRSR 

IZQDA. ]-./", 

"[COMM + 6]:;<[CRSR 

ABAJO][ 3*CRSR 

IZQDA. ] = >?", 

"[C0MM + 6]PQR[CRSR 

ABAJO][ 3*CRSR 

IZQDAJSTU", 

"[C0MM. + 1]JKL[CRSR 

ABAJO][ 3*CRSR 

IZQDA.]MNO" 
10430 DATA 

"[COMM + 6]£] t [CRSR 

ABAJO][ 3*CRSR 

IZQDA.]^!#", 

"[COMM + 7] 

VWXÍCRSR 

ABAJO][ 3*CRSR 

IZQDA.]YZ[", 

"[COMM + 6]$%&[CRSR 

ABAJOH 3*CRSR 

IZQDAJ'O" 

Las líneas 170 a 185 preparan las ru- 
letas. Los vectores DTMensionados en 
la línea 175 se emplean como sigue: 
Rl%, R2% y R3% contienen la" co- 
locación de las frutas en cada ruleta, 
W% representa las ganancias de cada 
una de las líneas ganadoras, y F$ la in- 
formación necesaria para visualizar las 
frutas. Los vectores contienen los 



que se leen (READ) desde la 
línea 10410 hasta la 10430. 

Las líneas 190 hasta 245 establecen 
la segunda pantalla que el jugador ve: 
la información de la línea ganadora. 



MONTAJE DE LA MAQUINA 

250 POKE 53280, 0:POKE 
53281, hPRINT 
"[SHIFT+CLR/HOME][CRSR 
IZQDA. ]";:FOR A=l TO 24 

255 PRINT "[ 40*CRSR 

ARRIBA]";:NEXT :FOR 
A=1984 TO 2023 

260 POKE A,81:P0KE 

A+54272,13:NEXT A:PRI NT 

"[CLR/HOME][CRSR 

ABAJO]", "[ 4*CRSR DCHA.] 

[C0MM. + 1HSHIFT+P] 

[SHIFT+L][SHIFT+N] 

[SHIFT+J][SHIFT+B] 

[SHIFT+K][SHIFT+C] 

[SHIFT+K][SHIFT+N] 

[SHIFT+FHSHIFT+M] 

[SHIFT+P]" 

265 PRINT "[CLR/HOME][ 

3*CRSR ABAJO]";:FOR A=0 
TO 9:PRINT "[ 7*CRSR 
DCHA.][ 5 ESPACIOS][ 
2*CRSR DCHA.][ 5 
ESPACIOS][ 2*CRSR 
DCHA.][ 5 ESPACIOS][ 
2*CRSR 

DCHA.][C0MM+8][SHIFT 

+ 01"; 

270 A$ = RIGHT$("00" + 

MID$(STR$(W%(A)),2) : 
3):PRINT LEFT$(A$,.l); 
"[SHIFT+P]";RIGHT$(A$,2); 

275 PRINT "[ 7*CRSR DCHA.]"; 
: N EXT A 

280 PRINT "[CRSR ABAJOH 

7*CRSR DCHA.HCOMM + 8] 
[SHIFT+P][SHIFT + E] 
[SHIFT+IHSHIFT + G] 
[SHIFT+A][ 2*CRSR DCHA.] 
[SHIFT+P][SHIFT+E] 
[SHIFT+I][SHIFT+G] 
[SHIFT+A][ 2*CRSR DCHA.] 
[SHIFT+P][SHIFT+E] 
[SHIFT+I][SHIFT+G] 
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[SHIFT+A]" 

PRINT "[ 3*CRSR ABAJO][ 290 
10*CRSR 

DCHA.][C0MM. + 1] 

[SHIFT+H][SHIFT+N] 

[SHIFT+A][SHIFT+D] 

[SHIFT+B][C0MM+3][CRSR 

DCHA.]@A[CRSR 

DCHA.]BC[CRSR 

DCHA.]DE[CRSR 295 
DCHA.]FG[CRSR DCHA.]HI[ 



10*CRSR DCHA.]"; 
PRINT "[ 2*CRSR ABAJO][ 
12*CRSR DCHA.][SHIFT+D] 
[SHIFT + K][SHIFT+B] 
[SHIFT+A][SHIFT+F] 
[SHIFT+M][SHIFT + I][ 
2*CRSR 

DCHA.][SHIFT + 0][CLR/ 
HOME]"; 

M-RND(-TI):M = 100: 
H%= - 1 : \%=- 1 : J%= - 1: 



P% = INT 

(RND(1)*16);Q%-INT 

(RND(1)*16) 
300 R%=INT 

(RND(1)*16):N%=0 
305 GOSUB 9500 

Las líneas 250 a 305 dibujan la má- 
quina de frutas, con ventanas para las 
ruletas, y las áreas para el movi- 
miento, la apuesta y el dinero. 




FRUTAS 
Y COCO 



Libera la ruleta de tu tragaperras y 
trata de conseguir el frutero con esta se- 
gunda parte del programa. Se cobra 20 
veces más que se apuesta. 

En esta segunda parte del artículo 
que hemos dedicado a la máquina de 
frutas, se completa el programa y de- 
jamos la máquina a punto para em- 
pezar el juego. 

- — — ■ ■ — 

EL BUCLE PRINCIPAL 



310 GOSUB 1000:GOSUB 

2000:GOSUB 3000:IF M>0 
THEN310 

315 GOSUB 4000:GOTO 70 

4000 POKE 53270, 

PEEK(53270) AND 
239:POKE 53280,2:POKE 
53281, 8:POKE 53272,21 

4005 PRINT "[SHIFT+CLR/ 
HOMEHCRSR 
ABAJO][CTRL+l]" ; 
CHR$(14),"[ 4*CRSR 
DCHA.][SHIFT+ MIALA 
[SHI FT+S]UERTE !!!" 

4010 PRINT "[ 2*CRSR ABAJO][ 
7*CRSR 

DCHA.][SHIFT+T]E HAS 
QUEDADO SIN DINERO!!!" 

4015 PRINT "[CRSR 

ABAJO][SHIFT+P]ULSA 
UN ESPACIO PARA JUGAR 
DE NUEVO ..." 

4020 GET A$:IF A$<>CHR$(32) 
THEN4020 

4025 XX=l:GOTO 70 

La línea 310 reclama las subrutinas 
que hacen dar vueltas a las ruletas, 
comprueba las líneas ganadoras y ob- 
serva qué tecla ha pulsado el jugador. 
El bucle se repite hasta que se agota 
el dinero del jugador. Si éste todavía 
tiene dinero, la línea 315 llama la sub- 



■ COMPLETA TU MAQUINA 



rutina de la línea 4000, la cual da 
cuenta mediante aviso al jugador de su 
mala suerte y le permite un nuevo in- 
tento. 



RULETAS EN ACCION 



1000 PRINT "[CLR/H0ME][ 

14*CRSR ABAJOM 7*CRSR 
DCHA.][C0MM+8] 
[SHIFT+P][SHIFT+E] 
[SHIFT+IHSHIFT+G] 
[SHIFT+A][ 2*CRSR 
DCHA.HSHIFT+P] 
[SHIFT+E][SHIFT+I] 
[SHIFT+G][SHIFT+A][ 
2*CRSR DCHA.][SHIFT + P] 
[SHIFT+EHSHIFT+I] 
[SHIFT+G][SHIFT+A][CLR/ 
HOME]";:M = M--10 
1005 GOSUB 9500 
1010 TI$ = "000000":DM = 0:DR 
= 100:JF NOT H% 
TH EN 1035 
1015 IF H% THENGOSUB 5500 
1020 IF 1% THENGOSUB 6500 
1025 IF J% THENGOSUB 7500 
1030 IF T!$<"000002" AND 
H% THENFOR Z=l TO 
50:NEXT Z:GOTO 1015 
1035 TI$ = "000000":IF NOT 1% 

THEN1055 
1040 IF 1% THENGOSUB 6500 
1045 IFJ% THENGOSUB 7500 
1050 IF Tl$<"000002" AND 1% 
THENFOR 1=1 TO 
100:NEXT Z:GOTO 1040 
1055 TI$="000000":1F NOT J% 

THEN1075 
1060 IF J% THENGOSUB 7500 
1065 IF Tl$<"000002" AND J% 
THENFOR Z=l TO 
150:NEXT Z:GOTO 1060 
1075 H%=-l:I% = -lrJ%=-l: 
RETURN 



LINEAS GANADORAS 

AJUSTE DEL CREDITO 
PARPADEO DE LOS AVANCES, 
PARADAS Y APUESTAS 
LOS EFECTOS SONOROS 



Las líneas 1000 a 1075 hacen dar 
vueltas a las ruletas para las que ha es- 
cogido el jugador liberar el avance. 
Las variables H5,I5 y J% son los flags 
de dicho avance correspondientes a las 
tres ruletas. 



MONTONES DE BILLETES 



1500 IF D%=0 THENRETURN 
1505 FOR Y- 10 TO D% 

STEP10:M = M + 10 
1510 GOSUB 9500 
1515 DR=40:DM=40:GOSUB 

8000:FOR T=í TO 

100:NEXT T,Y:RETURN 
2000 D% = 9.'A=PEEK(1313): 

B = PEEK(1320): 

C=PEEK(1327):IF A=B 

AND B=C AND C=ll 

THEND% = 
2005 IF A=B AND B=C AND 

C=17 THEND%= 1 
2010 IF A = B AND B=C AND 

C = 23 THEND%=2 
2015 IF A = B AND B = C AND 

C = 29 THEND% = 3 
2020 IF A = B AND B=C AND 

0=37 THEND%=4 
2025 IF A=B AND B=C AND 

C=43 THEND% = 5:G0T0 

2035 

2030 IF A=B AND B=43 

THEND%-6 
2035 IF A=B AND B = C AND 

C=59 THEND%=6:G0T0 

2050 

2040 IF A=B AND B=59 

THEND%-7:G0T0 2050 
2045 IF A=59 THEND%=8 
2050 IF D%=9: OR D%=0 

T H E N D % - W % ( D % ) : G O S U B 

1500:RETURN 
2055 FOR A=1172 + (D%*40) TO 

1176 + (D%*40):POKE 
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DE FRUTAS ■ 

■ DAR VUELTAS ■ 

A LAS RULETAS 

■ COMPROBACION DE LAS ■ 



A+54272,14:NEXT 
A:LL-INT (RND(1)*2) 
2060 FOR 

A=1132 + (LL*80) + (D%*40) 
TO 

1136+(LL*80) + (D%*40): 

POKE A+54272,12-NEXT 

A:CL=12 
2065 GET A$:IF A$=CHR$(13) 

THEND% = W%(D%):GOSUB 

1500:GOSUB 

9000:RETURN 
2070 IF A$=CHR$(32) 

THEN2090 
2075 FOR A-1212-(LL*80) + 

(D%*40) TO 

1216-(LL*80)+<D%*40): 

POKE A+54272.CL 

NEXT A 
2080 CL-27-CL:FOR 

A=1132 + (LL*80) 

+(D%*40) TO 

1136+(LL*80) + (D%*40): 

POKE A+54272.CL 
2085 NEXT A:GOT0 2065 
2090 FOR A=1172-f(D%*40) TO 

1176+{D%*40):POKE 

A+54272,15: 

NEXT A 

2095 1F (CL=15 AND LL=0) OR 
(CL=12 AND LL=1) 
TH EN D%= W%(D%+ 1 ) : 
GOSUB 1500:GOSUB 
9000:RETURN 

2100 D%=D%-1:IF D% = 
THEND% = 200:GOSUB 
1500:GOSUB 
9000:RETURN 

2105 GOSUB 9000:GOTO 
2055 

Las líneas 1500 a 1515 constituyen la 
rutina del crédito, la cual incrementa 
la variable M% según el importe total 
ganado por el jugador. 

Las líneas 2000 a 2105 comprueban 
si ha habido alguna línea ganadora 
una vez que han dejado de dar vueltas 
las ruletas. Si esto sucede, se llama la 
rutina de la línea 1500. 

Las líneas 2055 a 2085 controlan la 
visualización de la derecha de las ru- 
letas que muestra la suma con la que 
quiere ganar el jugador. 
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STOP, MOVIMIENTO 
Y APUESTA 



3000 IF RNDdX.25 

THENGOSUB 4500 

3005 IF RND(1)<.4 

THENCL$="[C0MM + 7] 
[C0MM+8]":SS-1: 
H%=-1:I%=-1:J.% = -1: 
GOTO3020 

3010 GET A$:IF A$oCHR$(32) 
THEN3010 

3015 RETURN 

3020 PRINT "[CLR/HOMEH 

14*CRSR ABAJOH 7*CRSR 

DCHA.]";MID$(CL$,SS,1); 

¡IF H% THENPRINT 

"[SHIFT+P][SHIFT+E] 

[SHIFT+IHSHIFT+G] 

[SHIFT+A][ 2*CRSR 

DCHÁJ"; 

3025 IF 1% THENPRINT "[CLR/ 
H0ME][ 14*CRSR 
ABAJO]", "t 4*CRSR 
DCHA.KSHIFT+P] 
[SHIFT+EHSHIFT+I] 
[SHIFT + G][SHIFT+A][ . 
2*CRSR DCHA.]"; 

3030 IFJ% THENPRINT "[CLR/ 
HOME][ 14*CRSR 
ABAJO]", ,"[CRSR DCHA.] 
[SHIFT+P][SHIFT + E] 
[SHIFT+I][SHIFT+G] 
[SHIFT+A][CLR/HOME]"; 

3035 GET A$:IF A$=CHR${32) 
THENRETURN 

3040 IF A$<"1" OR A$>"4" 
THENSS-3 SS:GOTO 
3020 

3045 ON VAL(A$)G0T0 3065, 

3050,3055,3060 
3050 H%=0:PRINT "[CLR/ 

H0ME][ 14*CRSR ABAJO][ 

7*CRSR 

DCHA.][C0MM. + 1] 
[SHIFT+P][SHIFT+E] 
[SHIFT+I][SHIFT+G] 
[SHIFT+A][CLR/HOME]"¡ 
:GOTO 3020 
3055 l% = 0:PRINT "[CLR/ 
HOMEK 14*CRSR 
ABAJO]", "[ 4*CRSR 



DCHA. ][COMM. 4-1] 
[SHIFT+P][SHIFT+E] 
[SHIFT+I][SHIFT+G] 
[SHIFT+A][CLR/HOME]"; 
:GOTO 3020 
3060 J%-0:PRINT "[CLR/ 

HOMEH 14*CRSR ABAJO", 
,"[CRSR 




1^ 



coN£ 




En INPUT estamos convencidos de que aún 
puedes hacer muchas más cosas con tu 
ordenador. Sin duda, muchos lectores estaréis 
utilizando vuestro micro para funciones de lo más 
vanadas, en unos casos; pintorescas, en otros; 
mientras que algunos listillos habrán podido 
utilizarlo para resolver tareas complejas. Es lógico, 
modificando programas y variando los periféricos 
nuestro ordenador puede prestar sus servicios en 

infinidad de facetas. INPUT quiere que esas 
aplicaciones y utilidades a las que has conseguido 

dedicar tu ordenador, sean conocidas por todos 
sus lectores y por eso ha organizado el «Concurso 
de Aplicaciones y Utilidades», en el que puede 
participar cualquiera de nuestros lectores. 






UTILIDADES Y APLICACIONES: Si tu orde- 
nador controla la calefacción de tu casa, gobierna 
un robot, dirige un pequeño negocio, organiza la 
maqueta de tu tren eléctrico, o cualquier cosa in- 
teresante u original; envíanos información gráfica y 
listados de tus programas, grabados en un cassette, 
diskette o microdrive. 

Todo ello habrá de venir acompañado por un 
texto que aclare cuál es su objetivo, el modo de fun- 
cionamiento y una explicación del cometido que 
cumplen las distintas rutinas que lo componen. El 
texto se presentará en papel de tamaño folio y me- 
canografiado a dos espacios. No importa que la re- 
dacción no sea muy clara y cuidada; nuestro equipo 
de expertos se encargará de proporcionarle la forma 
más atractiva posible. 

UN JURADO propio decidirá en cada momento 
qué colaboraciones reúnen los requisitos adecuados 
para su publicación, y evaluará la cuantía del pre- 
mio en metálico al que se hagan acreedoras. 

No olvidéis indicar claramente para qué ordena- 
dor está preparado el material, así como vuestro 



nombre y dirección y, cuando sea posible, un telé- 
fono de contacto. Entre todos los trabajos recibidos 
durante los próximos tres meses SORTEARE- 
MOS: 

• Un premio de 50.000 ptas. 

• Un premio de 25.000 ptas. 

• Un premio de 10.000 ptas. 

en material microinformático a elegir por 
los afortunados. 

¡No os desaniméis!, por muy simples o complejas 
que puedan parecer vuestras ideas, todas están re- 
visadas con el máximo interés. 

INPUT C0MM0D0RE 

Aribau, 185. Planta 1. a 
08021 BARCELONA 

NOTA: INPUT no se responsabiliza de la devolución del ma- 
terial que no vaya acompañado por un sobre adecuado con el 
-franqueo correspondiente. 
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Dibujos en alta resolución, precisos, 
limpios, fáciles de realizar con sólo mo- 
ver un dedo: esto es lo que ofrece el CAD 
(Computer AidedDesign: diseño asistido 
por ordenador). 

Con el listado que te presentamos, no 
tienes necesidad de otros programas 
para obtener atractivos gráficos con ab- 
soluta facilidad. 

Con un software adecuado, las ca- 
pacidades gráficas de tu ordenador 
pueden brindarte una nueva y pode- 
rosa herramienta de dibujo. No im- 
porta si eres un experto en dibujo o 
más bien un especialista en garabatos, 
lo importante es que con el listado que 
aquí te presentamos, tú puedes usar tu 
ordenador con la misma (e incluso ma- 
yor) soltura y facilidad que el lápiz y 
el papel. 

EL ORDENADOR: UN UTENSILIO 
DE TRABAJO 

En la industria, el software CAD 
(Computer Aided Design) para main- 
frames (grandes ordenadores) permite 
a" sus usuarios dibujar un objeto con 
todo detalle y simular las respuestas 
de un determinado diseño a ciertos 
condicionantes como, por ejemplo, el 
peso de la estructura, el viento, la vi- 
bración o los cambios de temperatura. 
Es obvio que tales prestaciones supe- 
ran la capacidad de un ordenador do- 
méstico, pues requieren tanto el pro- 
cesamiento de una enorme cantidad 
de datos como una refinada capacidad 
gráfica para producir distintas vistas 
del objeto y realizar cálculos y ope- 
raciones. 

Pero es frecuente que un delineante 
o diseñador sólo necesite estudiar o 
bien un detalle o el aspecto general de 
la representación visual. En este as- 
pecto, el CAD se convierte en un ins- 
trumento que sustituye papel y lápiz 
en el dibujo técnico, garantizando el 



trazado perfecto de curvas, rectas y fi- 
guras geométricas, con la permanente 
posibilidad de su corrección o borrado 
instantáneo. 

Este aspecto del CAD sí que pue- 
de aplicarse a los microordenadores, 
tanto sí te sientes interesado en los as- 
pectos técnicos del dibujo, como si te 
limitas a realizar pinitos de aficionado. 
Si bien todos los micros (salvo los 
Commodore) presentan ya sus man- 
datos de dibujos como parte de su 
BASIC habitual, elaborar un dibujo 
detallado requiere muchas iíneas de 
programa. 

VENTAJAS DEL PROGRAMA 

Lo bueno de este programa de di- 
bujo es que una vez entrado, te per- 
mite dibujar lo que desees dentro de 
las posibilidades gráficas de tu orde- 
nador, sin necesidad de recurrir a ul- 
teriores programas. Te coloca todos 
los mandatos de dibujo bajo un sen- 
cillo y directo control de teclas, de tal 
modo que lo único que has de hacer es 
seleccionar la opción o mover el cur- 
sor mediante las teclas de flechas. En 
algunos casos, el programa ofrece 
mandatos que no se incluyen en el 
BASIC estándar de tu máquina. 

Puesto que las posibilidades gráficas 
de los distintos ordenadores oscilan 
bastante de uno a otro, es natural que 
los programas específicos se diferen- 
cien en gran medida, y que cada uno 
intente sacar el mayor provecho de su 
potencia, minimizando los puntos dé- 
biles. Así, por ejemplo, algunos mi- 
cros pueden visualizar con facilidad 
texto y gráficos en una misma pantalla 
mientras que otros no lo pueden ha- 
cer. Así también pueden almacenar en 
varias «pantallas», distinta informa- 
ción de la que actualmente se está 
viendo, mientras que otros sólo pue- 
den disponer de unas cuantas panta- 
llas, 



Los poseedores de Commodore de- 
béis introducir antes el programa para 
gráficos SIMONS BASIC. 

AYUDAS PARA EL DIBUJO 

A pesar de las diferencias específi- 
cas, el programa tiene el mismo fun- 
cionamiento en todos los ordenado- 
res. Al usuario se le ofrece un menú o 
lista de opciones para dibujar, ya sean 
líneas, elipses, círculos o rectángulos. 
Seleccionando una de ellas y colo- 
cando el cursor mediante las teclas de 
flechas en la posición deseada, puedes 
crear dibujos realmente espectacula- 
res, con la garantía extra de que todas 
tus líneas serán del todo rectas y tus 
curvas perfectamente lisas. Y si te 
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■ 


EL ORDENADOR CONVERTIDO 


■ 


COMO DIBUJAR ESBOZOS 




EN UN UTENSILIO DE DIBUJO 




Y DISEÑAR A PULSO 


■ 


COMO AMPLIAR LOS MANDATOS 


■ 


OPCION L1NE: EL 




DE GRAFICOS INCORPORADOS 




TRAZADO PERFECTO 


■ 


EMPLEO DEL PROGRAMA 


■ 


EMPLEO DEL COLOR 



equivocas, algunos ordenadores te 
conceden la merced de borrarlo todo 
y volver a empezar. 

Otras opciones permiten cambiar el 
color del dibujo, o rellenar áreas con 
los colores de la paleta que desees. Y 
una vez concluida la obra de arte, tú 
puedes optar o bien por guardarla 
(SAVE) para futuros retoques, o bien 
hacerla desaparecer y comenzar de 
nuevo. 

Esta misma facilidad te permite car- 
gar (LOAD) incluso una figura que no 
fue dibujada con el presente pro- 
grama. 

Por ejemplo, se puede tomar la pá- 
gina del título de un trabajo y modi- 
ficarla a tu entera voluntad con nuevos 
dibujos. 



EMPLEO DEL PROGRAMA 

El listado se divide en dos partes. 
La primera parte está diseñada de tal 
forma que funciona con independen- 
cia de la segunda, y te permitirá crear 
dibujos lineales como los que te mos- 
tramos. 

Pero sólo más tarde añadimos al- 
gunas de las opciones más sofisticadas 
del menú. 

Al hacer funcionar el programa 
(RUN) aparece el cursor parpadeante 
en el centro de la pantalla. Para des- 
plazarlo a donde desees, debes em- 
plear las teclas de control del cursor. 
Pulsa D para seleccionar el modo 
Draw, y después escoge el color en 
que quieres dibujar, pulsando una te- 




cla entre 1 (el fondo) y 4. Ahora pue- 
des dibujar en cualquier dirección, 
pulsando las teclas de cursor. Para 
«colgar» el cursor temporalmente, 
pulsa 5 (aparecen los bordes grises) y 
así puedes utilizar el cursor sin dibu- 
jar. Para hacer que dibuje de nuevo, 
pulsa la tecla de flecha que esté en el 
ángulo superior izquierdo del teclado 
para fijar la posición de inicio. Esta te- 
cla tiene la misma función en cual- 
quier modo de dibujo. Seguidamente, 
escoge un color (del 1 al 4) y sigue di- 
bujando mediante las teclas del cur- 
sor. Para abandonar cualquiera de los 
modos de dibujo, pulsa *, que pro- 
duce el mismo efecto que si seleccio- 
naras Move. 

PARA ACELERAR EL CURSOR 

Puedes acelerar el movimiento del 
cursor pulsando una tecla entre 6 (ve- 
locidad normal) y el 9 (máxima velo- 
cidad). 

Esta facilidad se emplea cuando 
queremos acelerar el trabajo, pero no 
podemos llegar con el dibujo hasta los 
límites de la pantalla cuando se usa 
una velocidad superior. 

Para seleccionar Line pulsa primero 
* para abandonar el modo en que es- 
tás, lleva después el cursor hasta el ini- 
cio de la futura línea y pulsa L (de 
Line): ahora sólo tienes que trasladar 
el cursor hasta el final de la línea. Se- 
gún vas moviendo el cursor, la línea 
queda parpadeante desde su inicio 
hasta el punto actual del cursor, pero 
desaparece cuando éste cesa de mo- 
verse. Si deseas saber por dónde pasa 
la línea, puedes hacer que parpadee 
de nuevo apretando la barra espacia- 
dora. Para fijar la línea, selecciona un 
color y después aprieta la barra espa- 
dadora. Pero sólo debes escoger el co- 
lor cuando estás seguro de que esa lí- 
nea o figura satisface tus deseos. Pue- 
des pulsar de nuevo 5 para colocar el 
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cursor en una siguiente posición de 
inicio y fijar después este inicio pul- 
sando la tecla de flecha. Si escoges 
ahora una velocidad superior (por 
ejemplo, la tecla 8), el cursor puede 
moverse con mayor rapidez hasta 
cualquier posición final y dibujar mu- 
cho más pronto la línea deseada: a pa- 
sos. . . 

Este programa contiene una sección 
en código máquina, por tanto deberás 



guardarlo (SAVE) antes de ejecutarlo 
(RUN), para una completa segundad. 
Cualquier error producirá un caos en 
el programa, y si no lo tienes guarda- 
do en cinta o disco, tendrás que vol- 
verlo a copiar, cosa que a muy pocos 
agrada. 



UN PROGRAMA MAS POTENTE 

El programa de Diseño Asistido por 



Ordenador (CAD: Computer Aideá 
Design) muestra cómo puedes contro- 
lar mediante el teclado la potencia en 
gráficos de tu ordenador, al tiempo 
que te permite trazar diseños extre- 
madamente refinados. Pero faltan to- 
davía bastantes funciones si- queremos 
dotar el programa de su potencial más 
completo. Falta, sobre todo, la posi- 
bilidad de colorear áreas. Habrás visto 
estas opciones adicionales en el menú, 
pero hasta ahora no habrás podido ac- 
ceder a ellas. 

Carga (LOAD) el programa ante- 
rior, y añádele ahora las líneas que 
aquí damos. 

La primera parte de este programa 
incluía la facilidad Draw, con opciones 
del paso, para dibujar polígonos tales 
como el triángulo, el rectángulo y el 
pentágono. Pero ahora puedes obte- 
ner estas figuras lineales más fácil- 
mente con Line. Para dibujar un trián- 
gulo, por ejemplo, desplaza el cursor 
hasta donde deseas que esté uno de los 
ángulos y pulsa L. Después, mueve el 
cursor hasta la segunda esquina, selec- 
ciona el color del dibujo y pulsa la ba- 
rra espadadora. 

Sin desplazar el cursor, pulsa de 
nuevo L para fijar el inicio de la si- 
guiente linca y después traslada aquél 
a la tercera esquina. Selecciona un co- 
lor y fija la línea antes, ahora dibuja 
la tercera línea. 

La línea parpadea según mueves el 
cursor (mientras no selecciones el co- 
lor), por lo que es sencillo determinar 
el tamaño y la figura del triángulo, o 
de cualquier polígono. 

La opción Circle se obtiene me- 
diante C. Desplázate hasta donde de- 
sees el centro del futuro círculo y pulsa 
C. Mueve ahora el cursor hasta un 
punto de la circunferencia de este cír- 
culo (sólo puedes moverte vertical u 
horizontalmente). Con el tamaño del 
círculo a tu gusto, selecciona el color 
de éste y pulsa, a continuación, la ba- 
rra espadadora. 

Si tienes práctica con el mandato 
CIRCLE de los Commodore, no te 
sorprenderá el hecho de que la figura 
no sea circular, sino elíptica. En rea- 
lidad, para dibujar verdaderos círculos 
y verdaderas elipses tienes que usar 
Ellipse. Muévete hasta el centro de la 
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elipse (el punto de encuentro de los 
dos ejes) y pulsa E. Aléjate de este 
punto de modo que su distancia ver- 
tical respecto del cursor equivalga a la 
mitad de un eje, y su distancia hori- 
zontal la mitad del otro. Selecciona 
ahora un color y pulsa la barra para 
dibujar la elipse. Después de algunos 
intentos podrás determinar la longitud 
de cada eje de modo que lo que ob- 
tengas sea una elipsis o un círculo. 

Puede que te cueste un poco al prin- 
cipio la especificación del tamaño de 
la elipse. Supongamos que deseas una 
elipse de 150 mm de longitud por 100 
mm de altura. Coloca el cursor a una 
distancia del centro que represente la 
mitad de la longitud de cada uno de 
estos ejes, 75 mm a la izquierda (o a 
la derecha) y 50 mm para arriba (o 
para abajo). 

Las líneas Radial acompañan per- 
fectamente a Circle o Ellipse. Dibuja 
un círculo o una elipse y después vete 
al centro para pulsar seguidamente R. 



Muévete ahora al punto de la circun- 
ferencia que quieras, selecciona un co- 
lor y pulsa la barra espadadora para 
fijar el radio (línea entre el centro y la 
posición del cursor). Sin tener que vol- 
ver al centro puedes fijar tantos radios 
como desees . 

La última figura de este programa 
es Block, que dibuja un rectángulo re- 
lleno. Coloca el cursor en cualquier 
punto de la pantalla y pulsa B para re- 
llenar una esquina del bloque. Lleva el 
cursor a otro punto que determine la 
esquina diagonalmente opuesta, selec- 
ciona un color y pulsa la barra. 

Si deseas colorear cualquier espacio 
cerrado de la pantalla, emplea Paint. 
Vete a un punto dentro del espacio ce- 
rrado, selecciona un color y pulsa P 
para colorear el espacio. 

Tampoco es difícil poner textos a tu 
dibujo. Mueve el cursor hasta donde 
deseas emplazar un carácter y pulsa T, 
y teclea el carácter. Se imprimirá en el 
color inverso al de la pantalla. Repite 



la operación para los demás caracte- 
res. 

Tienes toda una baraja de opciones 
para corregir errores. Un método es 
pulsar SHIFT y CLR/HOME a la vez, 
con lo que se limpiará la pantalla y 
puedes empezar de nuevo. Otro mé- 
todo menos drástico consiste en borrar 
un área de la pantalla, mediante Block 
con el color de fondo. Y para borrar 
áreas muy pequeñas (supongamos, 
una línea o un punto) emplea Draw 
con el color de fondo. 

Un método más poderoso de corre- 
gir errores consiste en pulsar la tecla 
fl mientras se dibuja. Con ello se co- 
pia la imagen que se tiene en una sec- 
ción de la memoria. Si te equivocas o 
no te gusta lo que has dibujado desde 
que pulsaste fl, pulsa f3 para llamar la 
anterior pantalla que almacenaste. Si 
usas el programa por primera vez, 
pulsa la tecla fl para preparar el área 
de memoria que albergará la imagen. 

Pulsa fl y después f5 para guardar 
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(SAVE) el dibujo hecho en cinta o ]_g0 
disco. Para usar esta facilidad pulsa la 
tecla y responde las indicaciones que 
aparezcan en pantalla. Al preguntarte 
por el nombre del archivo, puedes 
abandonar esta rutina de! guardado 
pulsando RETURN. 

Para cargar (LOAD) una imagen 
desde un disco o cinta, pulsa F7 y res- 
ponde las indicaciones. Tras la carga, / 210 
pulsa f3 para traer el dibujo a la pan- 
talla. 220 



200 



10 POKE 51,255:POKE 52, 
94:P0KE 55,255:P0KE 56, 
94:CLR 
20 IF FG = 1 THEN130 
. 30 FOR Z = 24320 TO 

24431:READ X:POKE Z, 
X:NEXT Z:FG = 1 
40 DATA 169,0,141,14,220, 

169,53,133,1 
50 DATA 169,0,133,251,133, 
253, 169,224,133,252,169, 
96,133,254,160,0 
60 DATA 177,251,145,253, 
192,63,208,16,165,252, 
201,255,208,10 
70 DATA 162,1,142,14,220, 

162,55,134,1,96,200 
80 DATA 208,229,230,252, 

230,254,76,25,95 
90 DATA 165,45,133,253,165, 

46,133,254 
100 DATA 162,8,160,1,169,1, 
32,186,255,162,113,160, 
95,173,112,95 
110 DATA 32,189,255,169,0, 
133,251,169,96,133,252, 
162,0,160,128,169,251 
120 DATA 32,216,255,165, 
253,133,45,165,254,133, 
46,96 

130 HIRES 0,1:C(0)=1:C(1) = 2: 
C(2) = 5:C(3) = 6: 

C(4)=12:MULTI C(1),C(2), 
C(3) 

140 X=80:Y=100:SP=1:CO = 4: 

F=0:GOTO 450 
150 GET A$:FOR 1=1 TO 2:TEXT 

X,Y,"[SHIFT+M]",4,1, 

LNEXT ZílF A$ = "" 

THEN150 



230 
/ 240 
250 
270 
290 
310 
350 



390 



400 



•'440 

'450 

, 460 

470 

' 480 

/' 520 



IF A$ = "[SHIFT + CLR/ 
HOME]" THENPRI NT 
"ESHIFT + CLR/HOME]":NRM 
:HIRES 0,1:MULTI 0(1), 
C(2),C(3):P0KE 
198,0 

IF F=0 THENCO 

-4 

IF A$ = "<-" 
THENXX=X:YY-Y 
IF A$="[CRSR IZQDA.]" 
AND X-SP>0 
THENX=X-SP 
I F A$ = "[CRSR DCHA.]" 
AND X + SP<159 
THENX-X+SP 
IF A$-"[CRSR ARRIBA]" 
AND Y-SP>0 
THENY=Y-SP 
IF A$ = "[CRSR ABAJO]" 
AND Y+SP<198 
THENY=Y+SP 
IF VAL(A$)>0 AND 
VAL(A$)<6 
THENC0 = VAL(A$)-1 
IF VAL(A$)>5 AND 
VAL(A$)<10 

THENSP=(VAL(A$)-6)*6 + l 
IF (F>0 AND F<5) OR F=6 
THENFOR 1=1 TO 2:LINE 
XX,YY,X,Y,4:NEXT Z 
IF A$ = "L" 

THENXX = X:YY=Y:F-3:C0-4 

360 IF CF=3 AND A$=" ") 

AND C0<4 THENLINE XX, 

YY,X,Y,CO:F-0 

IF A$ = "D" 

THENF=5:XX=X:YY 

=Y 

IF F=5 AND C0<4 
THENLINE XX,YY,X,Y, 
CO:XX=X:YY=Y 
IF A$ = "*" THENF 

= 

COLOUR C(C0),1 
IF A$ = CHR$(133) 
THENGOSUB 520 
IF A$ = CHR$(134) 
THENGOSUB 530 
GOTO 150 

POKE 24346,251 :POKE 
24348, 253:SYS 



: 

\ 
,530 

170 
180 
190 
'260 
270 



■ 



280 



290 



■ 300 



310 



320 
'330 



340 



350 



360 



y 



370 



¡ 

"380 



390 



24320:RETURN 
POKE 24346, 253:P0KE 
24^48,251 -.SYS 
24320%RETURN 
IF A$ = CHR$(135) 
THEN540 
IF A$=CHR$(136) 
THEN590 
IF C0<4 AND A$ = ' 
THENPAI NT X,Y+1,C( 
IF A$="R" 

THENF = 6:XX-X:YY = Y 
IF VAL(A$)>0 AND 
VAL(A$)<6 
THENCO=VAL(A$) 

-1 

IF C0<4 AND F = 6 
THENLINE XX,YY,X,Y, 

C0:C0 = 4 

IF VAL(A$)>5 AND 
VAL(A$)<10 

THENSP=(VAL(A$)-6)*6 + 
1 

IF A$ = "B" 

THENXX=X:YY=Y:F=1:C0 = 
4 

IF (F>0 AND F<5) OR F=6 
THENFOR Z=l TO 2:LINE 
XX,YY,X,Y,4:NEXT Z 
IF (F=l AND A$=" ") AND 
C0<5 THENGOSUB 490 
IF A$ = "F" 

THENXX=X:YY=Y:F=2:C0 = 
4 

IF (F=2 AND A$=" ") AND 
C0<4 THENCIRCLE XX, YY, 
ABS(X-XX),ABS(Y-YY), 
CO:F=0 
IF A$ = "L" 

THENXX=X:YY=Y:F=3:C0 = ■ 
4 

IF (F=3 AND A$=" ") AND 
C0<4 THENLINE XX,YY,X,Y,, 

CO:F = 

IF A$ = "C" 

THENXX=X:YY=Y:F=4:C0- 
4 

IF {F=4 AND A$ = " ") AND 
C0<4 THENCIRCLE XX,YY, 
ABS(X-XX),ABS(X-XX), 

CO:F=0 

IF A$ = "D" 
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[Aplicaciones 




• 





'-.THENF=5:XX=X:YY=Y 


520 


POKE 24346, 25LP0KE 




NEXT 


400 IF F=5 AND C0<4 


24348, 253:SYS 


580 


SYS 24379:GOTO 130 


THENLINE XX,YY,X,Y,CO: 




24320:RETURN 


590 


NRM :PRINT "[SHI FT+CLR/ 


XX = X:YY = Y 


530 


POKE 24346, 253:P0KE 




HOME][CTRL+9][ 9 


410 IF A$o"T" THEN440 


24348, 251:SYS 




ESPACIOS]RECUPERAR[ 2 


420 GET A$:IF A$ = "" THEN 




24320:RETURN 




ESPACIOS]DIBUJO[ 14 


420 


540 


NRM :PRINT "[SHIFT+CLR/ 




ESPACIOS][CTRL+0]": 


430 TEXT X,Y,A$,4,1,1 


H0ME][CTRL+9][ 10 




NM$ = "" 


440 IF A$ = "*" THENF=0 




ESPACIOS]GUARDAR[ 2 


595 


INPUT "[ 4*CRSR 


450 COLOUR C(C0),1 




ESPACIOS]DIBUJO[ 15 




ABAJOJENTRAR NOMBRE 


460 IF A$ = CHR$(133) 




ESPACIOSHCTRL+0]": 




FICHERO" ; NM$:IF NM$ = "" 


THENGOSUB 520 




NM$ = "" 




THEN 130 


470 IF A$=CHR$(134) 


1 545 


INPUT "[ 4*CRSR 


i 600 


GOSUB 610:LOAD NM$,DV, 


THENGOSUB 530 




ABAJO]ENTRAR NOMBRE 




1:END 


480 GOTO 150 




FICHERO";NM$:IF NM$-"" 


, 610 


IN$ = "":INPUT 


490 IF YY>Y THENYT=YY: 




THEN130 




"[SHIFT+CLR/HOME]CINTA 


YT-YY— ABS(YY-Y):Y= 


,'550 


GOSUB 610:IF IN$="D" 




DISCO -C/D-" ; IN$ 


YT 


THENNM$ = "@0:" + NM$ 


620 


IF IN$ = "D" 


500 IFXX>XTHENXT=XX: 


560 


POKE 24432, 




THENDV=8:RETURN 


XX=XX-ABS(XX-X):X= 




LEN(NM$):POKE 24388, DV 


630 


IF IN$ = "C" 


XT 


570 


FOR 2=1 TO 




THENDV-1: 


510 BLOCKXX,YY,X,Y,CO:F=0: 




LEN(NM$):POKE 24432 + Z, 




RETURN 


C0 = 4-.RETURN 




ASC{MID$(NM$,Z,1)): 


640 


GOTO 610 



GANADORES DE LOS MEJORES DE INPUT C0MM0D0RE 



En el sortea correspondiente al número 18 entre quienes escribisteis mandando vuestros votos a LOS 

MEJORES DE INPUT han resultado ganadores: 



NOMBRE 



LOCALIDAD 



JUEGO ELEGIDO 



JOSE J. MUÑOZ ROMERO 
ALFONSO RIBOTE VALLEJO 
GENARO GARCÍA SINTES 
ROQUE BALLESTEROS MADUEÑO 
CRISTINA MARTÍN TORRES 
MOISÉS RAYA PÉREZ 
RAMON FONOLL JUSTO 
JOSÉ MANUEL GONZÁLEZ VERGARA 
JOSÉ ANTONIO LAMA FALCÓN 
MIGUEL ÁNGEL ISABEL MARTÍN 



Barcelona 

S. Cruz de Tenerife 
Mahón (Baleares) 
Marbella (Málaga) 
Parla (Madrid) 

La Orotava (S. Cruz de Tenerife) 
Madrid 

Aranjuez (Madrid) 
Sevilla 

Vicálvaro (Madrid) 



TWO ON TWO 
FIST II 
URIDIUM 

EL CASO VERACRUZ 
FREAK FACTORY 
SUPER CYCLE 
TWO ON TWO 
LABERINTO 
TWO ON TWO 
INFÍLTRATOR 
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■ 




1 




programaron 











LISTADOS 
COMPRENSIBLES 



Este programa está pensado para ob- 
tener los listados de programas de una 
forma totalmente inteligible, de forma 
que los caracteres gráficos estén repre- 
sentados por lacombinación de las teclas 
que es necesario pulsar para obtener di- 
cho gráfico. Además ofrece algunas op- 
timizaciones en dicha representación. 

Uno de los problemas que tienen 
planteados todos los ordenadores que 
poseen caracteres gráficos en sus có- 
digos ASCII ampliados, es el de tener 
que recurrir a las tablas de equivalen- 
cia para poder representarlos con una 
adecuada combinación de teclas o 
bien en forma de CHR$(n). 

Todo esto se pone de manifiesto en 
la mayoría de los programas que ne- 
cesitan alguna bonita presentación en 
pantalla o bien en la mayoría de los 
juegos que utilizan los caracteres grá- 
ficos. 

POSIBILIDADES 

Al arrancar este programa aparece 
una cabecera con el título del pro- 
grama y un mensaje de espera que nos 
avisa que el ordenador está prepa- 
rando unas tablas con los valores de 
conversión. A continuación nos pide 
el periférico de salida por donde ob- 
tendremos el listado (PANTALLA o 
IMPRESORA) debiendo responder 
con una de las dos letras iniciales. 
Después de esto, nos invita a entrar el 
nombre del programa a listar en 
donde es posible usar todos los tipos 
de caracteres usados normalmente 
como máscaras o abreviaciones (@Ü:, 
*,?) y por último nos pide el número 
de líneas inicial y final que deseamos 
listar. 



2 REM * * 120 

3 REM * PROGRAMA PARA 

HACER LOS 

4 REM * * 130 

5 REM * LISTADOS MAS 

COMPRENSIBLES. * 140 

6 REM * 

7 REM * POR J.M GILS 150 

MAR-1987 

8 REM * * 180 

9 REM ********** *********** 

10 DIM CH$(255),TK$(75) 

20 NU$ = CHR$(0):CR$ = CHR$(13) 

30 PE-0:Z = 

40 PRINT "[SHIFT+CLR/ 

H0ME][CTRL+9][ 9 185 
ESPACIOSJCONVERSOR DE 
LISTADOSt 10 ESPACIOS]" 190 

50 PRINT "I 6*CRSR 200 
ABAJ01ESPERAR UN 
MOMENTO ..." 

60 REM *** LECTURA DE DATAS 205 

* * * 

70 FOR L = TO 

255:CH$(L) = CHR$(L): 210 
NEXT L 
80 FOR L=0 TO 31:READ 

CH$(L):NEXT L 
90 FOR L = 96 TO 127:READ 215 
CH${L):CH$(L + 96) = CH$(L) 
:NEXTL 220 
100 FOR L=128T0 159:READ 

CH$(L):NEXTL 225 
110 FOR L=160 TO 190:READ 
CH$(L):CH$(L+64) = CH$(L) 
:NEXT L 



READ 

CH$(191):CH$(255) = CH$ 
(126) 

FOR L = TO 75: READ 
TK$(L):NEXT L 

REM *** PRESENTACION 

*** 

PRINT "[CRSR ARRIBA]! 26 
ESPACIOS][CRSR ARRIBA]" 
PRINT "[ 2*CRSR ABAJO] 
[CTRL+9] 

l[CTRL+0]MPRESORA- 
[CTRL + 9] 

P[CTRL + 0]ANTALLA[ 7 
ESPACIOS]"; 

GET SA$:IF SA$<>"¡" AND 
SA$<>"P" THEN 185 
PRINT SA$ 
INPUT "[ 2*CRSR 
ABAJOJNOMBRE DEL 
PROGRAMA"; N$ 
LI$ = "" : INPUT "[ 2*CRSR 
ABAJO]LINEA INICIAL"; 
LI$:LI=VAL(LI$) 
LF$="63999":INPUT "[ 
2*CRSR ABAJOJLI NEA 
FINAL[ 2 ESPACIOS]"; 
LF$: LF=VAL(LF$) 
PRINT "[SHIFT+CLR/ 
HOME]" 

OPEN 15,8,15:OPEN 8, 
8,8,N$ + ",P,R" 
INPUT#15,EN,EM$,ET, 
£S:IF EN<>0 THENPRINT 



EL PROGRAMA 



1 REI 



********************* 
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Pro gran«K ¡ón 



■ 


PARA OBTENER 


■ 


EL PROGRAMA 




LISTADOS INTELIGIBLES 


■ 


CAMBIOS 


■ 


PROBLEMAS 




A REALIZAR 




QUE SE PRESENTAN 


■ 


PRUEBAS 


■ 


POSIBILIDADES 




A EFECTUAR 





EN,EM$:GOTO 10010 
240 IF SA$="I" THEN OPEN 4,4 
245 IF SA$ = "P" THEN OPEN 4, 

3 

250 GOSUB 1000:REM 

BUSCA DIRECC DE CARGA 

* * * 

260 IF LNO2049 THENPRINT 

"ESTO NO ES UN 

PROGRAMA EN 

BASIC. ":GOTO 10000 
270 GOSUB 1 000: 1 F LN=0 

THEN10000 
280 GOSUB 

1000:LN$ = STR$(LN) + " " 
290 IF LN<LI THEN GOSUB 

2000:GOTO 270 
300 IF LN>LF THEN 10000 
350 GOSUB 1100:REM 

***BUSCA UN CARACTER 

■fr ik -k 

360 IF B>127 

THENA$(Z) = A$(Z) + TK$(B- 
128):GOTO 350 



370 IF B = 34 THEN450 

380 IF B = THEN800 

390 A$(Z)=A$(Z) + B$:GOTO 350 

450 A$(Z)=A$<Z) + B$ 

460 GOSUB 1100 

470 IF (B<33) OR (B>95) 

THENC$ = B$:C=B:PE=1: 

GOTO 700 
480 IF B = 34' 

THENA$(Z) = A$(Z) + B$: 

GOTO 350 
490 IF B=0 THENGOTO 800 
500 GOTO 450 
700 GOSUB 1100 
710 IF B = C 

THENPE = PE+1:G0T0 700 
715 ¡F C = 32 THEN760 
720 IF PE=1 

THENA$<Z)=A$(Z) + "[" + 
CH$(C)+"]":GOTO 740 
730 A$(Z)=A$(Z) + "[" + 

STR$(PE) + "*" + CH$(C) + 
"]" 

740 PE = 0:GOTO 470 
760 IF PE=1 

THENA$(Z)-A$(Z) + " 

":GOTO 780 
770 A$(Z)=A$(Z) + "[" + STR$ 

(PE) + " ESPACIOS]" 
780 GOTO 740. 
800 PRINT#4,LN$;A$(0) ; 

A$(1);A$(2) 



V 



810 A${0)-"" : A$(1) = "":A$(2) 

= "";Z = 
820 GOTO 270 

1000 REM *** BUSCAR DIRECC 

DE CARGA Y NUM. DE 

LINEA SIGUIENTE *** 
1010 GET #8,L$:GET #8,H$: 

LN = ASC(L$ + NU$) + ASC 

(H$ + NU$)*256:RETURN 
1100 REM LECTURA DE UN 

SOLO CARACTER 
1110 GET #8, 

B$:B = ASC(B$ + NU$) 
1120 IF LEN(A$(Z))>240 

THENZ=Z+1 
1130 RETURN 
2000 REM SALTA UNA 

LINEA *** 
2010 GOSUB 1 100: 1 F B<>0 

THEN2010 
2020 RETURN 
7000 REM *** CARACTERES 

ESPECIALES *** 
7010 DATA "NULL","1","2", 

"3","4","CTRL+2","6", 
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"7","DIS.SHIFT-C=", 
"ENA.SHIFT-C-" 
7020 DATA "10", "1 1", "12", 

"CR","MIN./MAY.","15", 

"16", "CRSR ABAJO", 

"CTRL+9" 
7030 DATA "CLR/HOME", "INST/ 

DEL","21","22","23", 

"24", "25", "26", "27" 
7040 DATA "CTRL+3","CRSR 

DCHA.","CTRL + 6", 

"CTRL + 7" 
7200 DATA "SHIFT + *", 

"SHIFT+A","SHIFT+B", 

"SHIFT+C'7'SHIFT + D", 

"SHIFT+E" 
7210 DATA "SHIFT+F", 

"SHIFT+G","SHIFT + H", 

"SHIFT+F'/'SHÍFT+J", 

"SHIFT+K" 
7220 DATA "SHIFT+L", 

"SHIFT + M","SHIFT + N", 

"SHIFT + 0","SHIFT+P'\ 

"SHIFT + Q" 
7230 DATA "SHIFT+R", 

"SHIFT + S","SHIFT+T", 

"SHIFT+UY'SHIFT+V", 

"SHIFT+W" 
7240 DATA "SHIFT+X", 

"SHIFT+YY'SHIFT + Z", 

"SHIFT+ + ","COMM + -", 

"SHIFT+ -" 
7250 DATA "SHIFT+ | ", 

"COMM+ *"/"' 
8000 DATA "COMM.-f 1 

"","F1","F3'\"F5","F7", 

"F2","F4","F6","F8" 
8010 DATA "SHIFT+CR", 

"MAY./GRAF.", "", 

"CTRL+1", 

"CRSR ARRIBA", 

"CTRL+0" 
8020 DATA "SHIFT + CRL/ 

HOME","SHIFT+INST/ 

DELY'COMM + 2", 

"C0MM+3","C0MM + 4" 
8030 DATA "COMM + 5", 

"C0MM+6","C0MM + 7", 

"C0MM+8","CTRL + 5", 

"CRSR IZQDA." 
8040 DATA "CTRL+8", 

"CTRL + 4", 

SO INPUT 



"SHIFT+ESPACIO" 

8100 DATA "COMM + K", 

"COMM + IY'COMM+T", 
"COMM + @","COMM + G", 
"COMM + +","C0MM + M" 

8110 DATA "COMM + £", 

"SHIFT+£","COMM + N", 
"COMM + Q","COMM + D", 
"COMM+Z","COMM + S" 

8120 DATA. "COMM + P", 

"COMM+A","COMM + E", 
"COMM + R'V'COMM + W", 
"COMM + H","COMM + J" 

8130 DATA "COMM + L", 

"COMM+Y","COMM + U", 
"COMM + 0","SHIFT + @" I 
"COMM + F","COMM + C" 

8140 DATA "COMM + X", 

"COMM+V","COMM + B" 

9000 REM *** TOKENS *** 

9010 DATA "END",'"FOR ", 
"NEXT "/'DATA ", 
"INPUT#" 

9020 DATA "INPUT ","DIM 

"READ ","LET ","GOTO " 

9030 DATA "RUN","IF 

"RESTORE", "GOSUB ", 
"RETURN" 

9040 DATA "REM","STOP","ON 
","WAIT","LOAD " 

9050 DATA "SAVE ", "VER I FY", 
"DEF ","POKE ", 
"PRINT#","PRINT ", 
"CONTVLIST'Y'CLR" 

9070 DATA "CMD ","SYS ", 

"OPEN ","CLOSE ","GET 
","NEW","TAB("," TO ", 
"FN ","SPC(" 

9090 DATA " THEN"," NOT "," 
STEP" "-|-" " M n * ,r 

i.i ^ ip 

9100 DATA " AND "," OR ", 
">"," = ", "<","SGN " 

9110 DATA "INT ","ABS", 
"USR","FRE","POS", 
"SQR'\"RND","LOG", 
"EXP","COS","SIN" 

9130 DATA "TANY'ATN", 

"PEEK","LEN","STR$", 
"VAL","ASC","CHR$", 
"LEFT$", "RIGHT$" 

9140 DATA "MID$","GO" 



10000 REM RUTINA DE 

SALIDA *** 
10005 PRINT#4:CL0SE 4 
10010 CLOSE 8:CL0SE 

15:PRINT "L 7 

ESPACI0S][CTRL+9][ 5 

ESPACIOS]FIN DE 

IMPRESION. [ 4 

ESPACIOS]":END 

En primer lugar se reserva espacio 
para dos tablas de datos (strings) que 
son CHSÍ255) y TK$(75) y que son di- 
mensionadas en la línea 20 del pro- 
grama. 

La tabla CH$(255) almacenará to- 
dos los caracteres ASCII correspon- 
dientes a los caracteres alfanuméricos 
y además todas las traducciones de los 
caracteres especiales tales como mo- 
vimientos de cursor, cambios de color 
y todo el juego de caracteres gráficos. 

La tabla TKS(75) almacenará todas 
las traducciones correspondientes a las 
palabras reservadas del BASIC (to- 
kens). 

El hecho de llenar estas tablas con 
los valores adecuados se realiza por 
etapas (líneas 60 a 130) debido a la dis- 
tribución un tanto anárquica de los 
símbolos especiales dentro del código 
ASCII. 

Después sigue la presentación del 
programa así como todos los datos ne- 
cesarios para obtener el listado. Esto 
puede observarse en las líneas 140 a 
215. 

Cuando ya hemos entrado todos los 
datos, se dirige a la unidad de discos, 
intenta localizar el programa y busca 
la dirección de carga donde se alma- 
cena normalmente el programa. Ésta 
es la dirección 2049 en decimal (0801 
hex). Si no es así se entiende que es 
un programa en lenguaje máquina y 
no permite el listado. La lectura de la 
dirección inicial de carga se realiza en 
la subrutina que va de la línea 1000 
hasta 1010 y ésta además se encargará 
de ir buscando dónde empieza cada lí- 
nea. 

Una de las primeras cosas a verificar 
es si el número de la línea del pro- 
grama que estamos leyendo se en- 
cuentra dentro de los límites entrados 
en las variables LI y LF. 



programaoón 



En el caso de que el número de li- 
nca leído sea inferior al número de 
línea inicial, el programa entrará en 
un bucle de espera hasta que llegue la 
siguiente línea. Esto ocurre en la su- 
brutina situada en las líneas 2000 a 
2020. La lectura de caracteres se rea- 
liza en las líneas 1100 hasta 1130. 

Cuando ya se ha encontrado la pri- 
mera línea a listar el programa sigue 
por la línea 350 y empieza una serie de 
preguntas sobre los caracteres que va 
leyendo. Si el valor ASCII del carácter 
entrado es superior a 127 nos indica 
que dicho carácter representa una pa- 
labra reservada de BASIC (token), en 
cuyo caso se busca su traducción en la 
tabla de — tokens — . Otra comproba- 
ción es si el carácter entrado corres- 
ponde al código ASCII (34 decimal) 
de las comillas dobles. En tal caso se 
entra en una rutina especial donde se 
comprueban los caracteres de control 
de cursor, cambios de color y carac- 
teres gráficos. 

Esta rutina va de la línea 450 hasta 
la 500. Por último mira si ha encon- 
trado el identificador de final de línea 
(00 decimal) en cuyo caso pasa a im- 
primir o visualizar la linea entrada gra- 
cias a la rutina situada entre las líneas 
800 a 820. 

En la rutina que descifra los carac- 
teres situados entre comillas, líneas 
450 hasta 500, cabe destacar el análisis 
y recuento de los espacios en blanco 
que aparecen, facilitando en gran me- 
dida la depuración del programa. 



Por último, cabe destacar la rutina 
de salida, encargada de cerrar todos 
los ficheros y de enviar un mensaje de 
fin de impresión por la pantalla. Esta 
se encuentra en las últimas líneas del 
programa (10000 y 10010). 



CAMBIOS A REALIZAR 

Si disponemos de un programa cuya 
dirección de carga no sea la normal 
para el ordenador (2049 decimal) es 
posible modificar dicho valor en la lí- 
nea 260 por el valor adecuado. 

Un cambio atractivo puede ser la 
traducción al castellano u otra lengua 
de las palabras reservadas de! BASIC, 
en cuyo caso deben modificarse los 
DATAS que se encuentran desde la 
línea 9000 hasta la 9140. 



PRUEBAS A EFECTUAR 

Antes de realizar un listado es con- 
veniente hacer unas pruebas de forma 
que nos verifique el programa y po- 
damos almacenarlo en lugar seguro 
para una nueva utilización. 

Una forma de realizar esto puede 
ser la representada en el programa si- 
guiente, donde los caracteres se han 
obtenido pulsando alternativamente 
las teclas de SHIFT. COMMODORE 
y CONTROL y el resto de los carac- 
teres alfanuméricos del teclado. 

10 PRINT 

"1234567890 + -£[CLR/ 



HOME]" 

20 PRINT "!#$%&'()0[SHI FT+ 
+ HSHIFT+ -][SHIFT+£] 
[SHI FT + CLR/HOME] 
[SHIFT+ 1 NST/DEL]" 

30 PRINT "[C0MM. + 1] 
[COMM + 2][COMM+3] 
[C0MM + 4][C0MM + 5] 
[COMM + 6][COMM + 7] 
[COMM + 8])0[COMM + 
+HC0MM + -][C0MM + £]" 

40 PRINT "LCTRL i HfCTRL+2] 
[CTRL+3][CTRL + 4][CTRL + 5J 
[CTRL + 6][CTRL+7][CTRL + 81 
LCTRL+9][CTRL + 0]" 

50 PRINT "^^^[6]" 

100 PRINT "QWERTYUIOP^* T 
ASDFGHJKL:; = ZXCVBÑM,./ 

ti 

110 PRINT "[SH1FT + Q] 
[SHIFT+WHSHIFT+E] 
[SHIFT+RHSHIFT+T] 
[SHIFT+Y][SH1FT+U] 
[SHIFT+IHSHIFT+O] 
[SHIFT+P][SHiFT + @] 
[SHIFT+*][SHIFT+ f] 
[SHIFT+AHSH1FT + S] 
[SHIFT+D][SHIFT+F] 
[SHIFT+GHSHIFT+H] 
[SHIFT+JKSHIFT+K] 
[SHIFT+L][] = [SHIFT+Z] 
[SHIFT + X][SHIFT+C] 
[SHIFT + VJ[SHIFT+B] 
[SHIFT + N][SHIFT+M]<> ? " 

120 PRINT "[COMM + Q] 

[COMM + WHCOMM + E] 
[COMM + RHCOMM+T] 
[C0MM+Y][C0MM + U] 
[COMM + IHCOMM + 0] 
[C0MM + P][C0MM + @] 
[C0MM+ *][SHIFT+ ti 
[COMM+AHCOMM.+ S] 
[COMM + DHCOMM + F] 
[C0MM + G][C0MM + H] 
[COMM+JHCOMM + K] 
[C0MM + F][] = [C0MM + Z] 
ICOMM + XJLCÜMM + CJ 
[COMM+V][COMM + B] 
[COMM + N] 
ÍCOMM + Mlo?" 

130 PRINT " [ 

2 i SHIFT+ESPACI0]" 



A NUESTROS NUEVOS LECTORES 



En las páginas centrales de la revista encontrarás la sección 
«Programación de juegos» que se compone de una serie de artícu- 
los coleccionables que continúan mes tras mes. 

Como la paginación de estos artículos es siempre correlativa 
con la del mes anterior apreciarás que no se corresponde con la del 
resto de la revista, pudiendo parecer a los más despistados que 
faltan páginas o que se trata de un error de encuademación. 



INPUT 51 



LOS MEJORES 

DE IñPUT 
COMMODORE 



PUESTO TÍTULO PORCENTAJE 

1. ° Green Beret 16,1 % 

2. ° Uridium 13,9% 

3. ° Commando 13,3 % 

4. ° Two on Two 12, 1 % 

5. ° Sky Fox 8,9% 

6. ° Rambo 8, 1 % 

Z° Dragon'sLair 8 % 

8. ° HardBall 7,2% 

9. ° físt// 6,5% 

10.° Infütrator 5,9% 



100,0 % 



Para /a confección de esta relación únicamente 
se han tenido en cuenta las votaciones 
enviadas por nuestros lectores de acuerdo con 
la sección «LOS MEJORES IñPUT». 



Abril de 1987 



EL ORIGINAL SOFTWARE 
DE LAS IMPRESORAS 



Mucho se ha escrito y se ha dicho so- 
bre las impresoras, su hardware, tipos 
y modelos posibles. Sin embargo, un 
aspecto sobre el que pocas veces se cen- 
tra la atención es el del software que 
utilizan esas mismas impresoras. A es- 
te aspecto de la informática, injusta- 
mente relegado a un segundo plano, 
está dedicado este artículo. 

Efectivamente, vamos a hablar de 
programas para impresoras. Mas no 
penséis que se trata de programas nor- 
males. No: a lo largo de estas líneas 
vamos a conocer programas atípicos 
que, además de volcar correctamente 
tus textos o listados, son capaces de 
realizar tareas sorprendentes. 

Para empezar podemos destacar dos 
tipos de productos muy diferenciados: 
por una parte existen programas que 
permiten un uso particular de las im- 
presoras; como veréis más adelante, 
estamos hablando de cabeceras de car- 
tas, calendarios, etc. Por otra, existen 
algunos procesadores de textos que 
desarrollan características poco usua- 
les con las impresoras (juegos de 700 
caracteres diferentes) y de ios que ha- 
blaremos en otra ocasión. 

Por orden de antigüedad, tal vez de- 
beríamos empezar hablando del BAN- 
NER MACHINE, concretamente de 
su versión 1.1. En este caso estamos 
ante un programa que se dirige espe- 
cialmente a comerciantes o personas 
interesadas en confeccionar carteles 
para llamar la atención de clientes o 
personas interesadas en lo que ofre- 
cen. Es un programa dedicado a la 
confección de BANDERAS. 

Con este software se alcanzan me- 
didas capaces de satisfacer al más exi- 
gente: seis metros de impresión sobre 
papel. A diferencia de muchos de los 
programas que le siguieron, éste per- 
mite incluir varias líneas de texto su- 
perpuestas y admite escritura tanto 
vertical como horizontal. Esta última 



opción también ha desaparecido en los 
últimos programas de este tipo que he- 
mos utilizado y testado en la redacción 
de INPUT. 

Sus limitaciones más notables resi- 
dían en la reducida panoplia de cali- 
grafías, aunque alguno de los modos, 
como el TECH, ofrecía resultados 
muy interesantes. 

Sin duda, las sucesivas versiones de 
este programa han incluido notables 
mejoras. Concretamente, a partir de 
la versión 3.3 se incorporan una serie 
de aspectos que hacen de este pro- 
grama uno de los me jores, si no el que 
más, de los relacionados con esta uti- 
lización especial de las impresoras. El 
programa te permite incluir ocho lí- 
neas de texto en impresión vertical, 
con las que se pueden emplear ocho 
tamaños de letra diferentes. En un 
mismo texto son combinables estos ti- 
pos de forma que confecciones: una 
bandera en la que, por ejemplo, una 
primera línea esté escrita en tamaño 4, 
simulando el título o el encabeza- 
miento, mientras que las siguientes 
pueden ir a tamaño 2, para el núcleo 
de la llamada. La última línea, a modo 
de despedida o nota menos impor- 



UN SOFTWARE SORPRENDENTE 



«BANNER MACHINE» 



«PRINTSHOP» 



CREACION DE TARJETAS 



«PRINT MASTER» 



tante, puede escribirse en tamaño 1. 

Asimismo, esta configuración te 
permite hacer otra cosa más: situar la 
línea de texto en el lugar que quieras 
en cualquier lugar de la hoja. Eviden- 
temente las líneas de tamaño 8 no tie- 
nen más que una posición, pero no 
ocurre así con los tamaños menores, 
que podrás colocar y destacar respecto 
a las demás, siempre que no rebases la 
anchura de la hoja. 

Finalmente, hemos de destacar que 
incorpora seis tipos de letras y que sus 
creadores han tenido la buena idea de 
hacer posible que se escriban varias lí- 
neas con diferentes caligrafías. Este 
detalle diferencia a este programa de 
todos los demás. También hay inno- 
vación en lo que se refiere a la posi- 
bilidad de configurar un teclado pro- 
pio, además de permitir la redefini- 
ción del conjunto del alfabeto. 

Un detalle digno de mención es el 
copiador que se integra con el pro- 
grama y que salva los diferentes 
FONTS en un disco de destino para 
poder trabajar en ellos. 

Refiriéndonos a los problemas de 
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SETUP, hemos de decir que la lista 
más completa de impresoras de la 
época se hallaba ya en la versión 1.1: 
MANNESMAN, PROWRITER, RE 
TEMAN, PANASONIC, etc., ade- 
más de admitir impresoras con inter- 
íace tipo MW-302 y 350, CARDCO. 
TYMAC, GRAPPLER, etc. Un sur 
tido que ya era importante en la época 
de su creación y que se ha ido com- 
pletando en las sucesivas versiones. 

«PBINT SHOP» 

PRINT SHOP constituyó un acon- 
tecimiento cuando se lanzó al mer- 
cado. Se trataba de un programa que 
se promocionó a bombo y platillo y ve- 
nía avalado por la paternidad de una 
de las más importantes casas de soft- 
ware del mundo: BRODERBUND, la 



casa de las tres coronas. El nombre de 
SHOP ya tenía un cierto carisma y 
prestigio entre los usuarios que ya co- 
nocían algunos programas como el 
MUSIC SHOP. 

El menú principal presenta las si- 
guientes opciones: confección de tar- 
jetas, carteles, cabeceras de carátulas, 
banderas, pantalla mágica y sefup. 

Aquí se abre la posibilidad de con- 
feccionar muy diferentes tipos de tar- 
jetas. Al elegir esta opción se pasa a 
un nuevo menú en el que se elige entre 
imprimir tarjetas ya preparadas y, por 
tanto, ya existentes, o bien confeccio- 
nar una nueva tarjeta tú mismo. Com- 
poniéndola antes de imprimirla, la tar- 
jeta se confecciona de la siguiente 
forma: se escoge entre nueve tipos de 




marcos diferentes que incluyen desde 
motivos florales, corazones, pasando 
por estrellas, figuras geométricas, 
etc.. Evidentemente puedes prescin- 
dir de marco alguno. Posteriormente 
podrás decidir si quieres o no incor- 
porar en tu tarjeta un dibujo. El fondo 
gráfico que se te ofrece alcanza la in- 
creíble cifra de 600 dibujos, que po- 
drás elegir simplemente por su nom- 
bre o su número de diseño. También 
podrás rescatar un dibujo antiguo 
desde el disco. 

Ejemplos curiosos de estos gráficos 
son el símbolo médico, o el del Ying- 
Yang, un ordenador, el avión, una 
mano amenazadora, etc.. Además de 
los dibujos que originalmente incor- 
pora el programa del fabricante mu- 
chas casas comerciales se han lanzado 
a crear bibliotecas de dibujos. En total 
son más de 4.000 los gráficos dispo- 
nibles que, juntos, ocuparían más de 
15 discos. 

En la fase siguiente tienes que elegir 
el tipo de letra. El surtido que ofrece 
este programa es muy superior al del 
programa que comentamos anterior- 
mente: RSVP, ALEXIA, NEWS, 
TECH, PARTY, BLOCK, TYPE 
WRITER, STENCIL. Siempre existe 
la posibilidad de no utilizar ningún ti- 
po de letra. Así puedes confeccionar 
una tarjeta con ocho tipos diferentes. 

El texto se puede imprimir en tres 
modos: tridimensional, vacío y re- 
lleno. Esta última opción resulta muy 
interesante para una serie de letras 
como la NEWS o la TECH. 

También dispone de un miniproce- 
sador de textos que te permitirá que el 
texto quede automáticamente cen- 
trado o se alinee, a derecha e iz- 
quierda, de la tarjeta. 

Posiblemente la opción más utili- 
zada sea la opción de cabeceras de car- 
tas, ideal para pequeñas empresas que 
quieran enviar comunicados originales 
a sus clientes a un precio razonable. 
Sin duda muchos de vosotros podríais 
utilizarlo en la organización de fiestas 
universitarias o para invitar a amigos 
o asociados de algún grupo. 

Finalmente, y pasando por la posi- 
bilidad de introducir los dibujos que 
antes hemos comentado como cabe- 
ceras, se presentan opciones como: di- 




bujo centrado a la derecha, a la iz- 
quierda, al centro, o bien tres repar- 
tidos, en intervalos iguales, en la línea 
superior. 

Gracias a esta última prestación, 
podrás realizar cabeceras de cartas 
muy flexibles, en series, a medida de 
tus necesidades. También podrás po- 
ner fondo a tus hojas o cartas, impri- 
miendo dibujos difuminados y con 
suaves trazos. 

Aquí, al igual que en los casos co- 
mentados antes, elección de tipos de 
dibujos, tipos de letras en cualquiera 
de los tres modos, están incluidos en 
la opción BANNER. Ésta permite 
confeccionar carteles con letras de 
hasta 17 centímetros de anchura y 
para leerlas correctamente tendrás 
que situarte a una cierta distancia. 
Ideal para comerciantes que quieran 
anunciar saldos y liquidaciones, para 
fiestas de cumpleaños y otros eventos 
que requieran anuncios llamativos. 

Estamos ya en la penúltima opción 
del programa. Aquí podrás elegir en- 
tre dos tipos de CALEIDOSCOPIOS. 
Se trata de estos instrumentos, utili- 
zados ya por nuestros abuelos, y que 
moviéndose en torno a su eje generan 
y sugieren diferentes figuras. El pro- 
grama se encarga de imprimir esas va- 
riadas formas. 

La segunda opción de este pro- 
grama es, tal vez, más práctica que la 
anterior. Se trata de visualizar en pan- 
talla un segmento de texto con las le- 
tras de las que se dispone en el pro- 
grama en cualquiera de sus tres va- 
riantes. 

Esta opción es, en realidad, de uti- 
lidad limitada, pero hará las delicias 
de los videoamateurs, que podrán ha- 
cerse sus doblajes, comentarios, o pre- 
sentaciones de los vídeos como si va 




dispusieran de un equipo profesional. 

«PRINT MASTER» 

El PRINT MASTER es el último 
programa que comentamos de esta se- 
rie sobre software para impresoras. 
En realidad se trata de una emulación 
del PRINT SHOP. La semejanza con 
este último se percibe en el mismo es- 
quema de menús. 

Este esquema incluye las siguientes 
opciones: GREETING CARDS, 
SIGN, STATIONARY, CALEN- 
DAR, BANNER, GRAPHIC EDI- 
TOR y SETUP. 

La primera opción nos permite 
crear tarjetas de invitación, tarjetas a 
dos caras, con una biblioteca de grá- 



ficos bastante importante. La ventaja 
con respecto al PRINT SHOP es que 
aquí mediante la tecla Commodore 
verás el gráfico en una ventana que se 
abrirá en la parte derecha de la pan- 
talla. 

En la mecánica de elección y opcio- 
nes todo sigue igual que en el caso del 
hermano mayor. Sin embargo, el si- 
guiente cambio se advierte en el menú 
de letras: DEVILLE, ESCRIBE, OF- 
FICE, HAMPTON. TIMES, WES- 
TERN, UTOPIA, COMPUTER y la 
consabida opción de no test. 

La verdad es que algunos tipos de 
estas letras son muy barrocos, pero, 
vistos globalmente, constituyen un ex- 
celente complemento de su hermano 
rnavor. 
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Se dispone de las letras en cuatro 
modos diferentes: RAIN, OUTL1NE, 
3-D y SOL1D, que, en castellano, ca- 
racterizaríamos como: sólida pero con 
poca presión de impacto de impre- 
sora, sólo el contorno, tridimensional 
y normal. 

Quizá la opción más exótica sea la 
del calendario. En efecto, te permite 
confeccionar un calendario señalando 
fechas con gráficos, puedes realizar 
calendarios mensuales, anuales, en 
cuyo caso sólo aparecen los meses del 
año, o bien semanales, apareciendo 
entonces en línea y dejando sitio para 
escribir. 

Puedes hacer que el programa te se- 
ñale fechas concretas y le permite uti- 
lizar sus diversos tipos de letras para 
escribir notas o recordatorios. 

Por lo demás, este programa está 
igual que el PR1NT SHOP, del que 
constituye un excelente complemento. 

«NEWSROOM» 

Newsroom es el más sofisticado de 
los programas relacionados con las im- 
presoras. El más completo, extenso, 
trabajado, y, también, versátil. 

Newsroom sirve para hacer revistas 
de universidad, para crear gacetillas, 
periódicos, etcétera. 

El programa te presenta 6 opciones: 
PHOTCKLAB, PRESS, BANNERS, 
COPY DESK, LAYOUT y W1RE 
SERVICE. 

¡Vaya!, la primera opción sirve para 
crear la cabecera de la revista. El pro- 
grama considera que Banner es la 
parte superior de la primera página de 
la gacetilla de la que te acabas de con- 
vertir en creador. La parte superior de 
la revista que tendrá que llamar la 
atención del que la vaya a adquirir: in- 
formarle de lo que trata, del número 
que es.. . etcétera. 

Empezaremos por poner un poco de 
texto: dispones de tres tipos de letras 
de caja alta y de dos de baja (incluido 
el gótico). 

Después de esto, puedes añadir un 
dibujito que llame más la atención: 
dispones de una biblioteca de más de 
600, todos muy diferentes de los pro- 
gramas precedentes. Junto con esta 
lista de dibujos dispones de un amplí- 
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simo menú de dibujo que hará las de- 
licias de los amantes del garabato y 
que te servirá tanto para corregir 
como para añadir detalles a tu dibujo. 

El menú incluye las típicas opciones 
de líneas, círculos, cajas, diez tipos de 
lápiz así como un generador de 
FILLS, 10 tipos de filis disponibles, 
una goma de borrar, un spray, tres ti- 
pos de letras de caja alta y dos de caja 
baja. 

Este «MINI» menú te permitirá 
aportar las alteraciones que estimes 
necesarias o bien realizar tú mismo al- 
gún elemento decorativo para alegrar 
esta tu primera página en tu nueva 
profesión de periodista. 

En cualquier caso, si lo que vas a 
editar es una revista de tipo asociación 



de adictos al juego de arcadia, no te- 
mas: el programa te brinda la posibi- 
lidad de crear tu CLIP ART (en este 
caso sería evidentemente un JOYS- 
T1CK) y de almacenarlo para no tener 
que repetir el trabajo. 

En la pantalla de creación del ban- 
ner hay una serie de ICONOS de los 
cuales uno será muy familiar a la ma- 
yoría de los lectores: una lupa. El 
menú de ampliación del dibujo te per- 
mite corregir cualquier detalle por pe- 
queño que sea, ya que en la parte in- 
ferior hay una miniventana en la que 
se representan a tamaño normal las 
correcciones que estás realizando. 

Én cualquier caso, si quieres borrar: 
el icono de la basura es muy represen- 
tativo de lo que puedes hacer si te lo 
propones. 




Una vez realizada esta primera ca- 
becera de periódico, almacénala: el 
NEWSROOM está preparado para 
ayudarte a crear el resto de la página. 
Y he aquí una de las peculiaridades de 
este programa que tiene una marcada 
vocación de creador de periódicos: la 
composición del resto del programa se 
basa en un concepto que vamos a tra- 
tar de haceros llegar del modo más 
sencillo. Para este programa, una pá- 
gina de impresión consta de una serie 
de segmentos independientes: podrás 
definir páginas con banner en la parte 
superior o sin banner; sea cual sea tu 
elección, el programa divide el resto 
de la página en paneles (ver gráfico 
número 1). 

Ahora te toca crear cada uno de es- 
tos PANELES. Tarea que empezarás 
acudiendo a la opción de PHOTO 
LAB que tal y como su nombre indica 
es el laboratorio donde vas a hacer las 
fotos. 

El programa, una vez más, entiende 
el concepto de foto de un modo un 
tanto especial: una foto no corres- 
ponde al concepto de CLIP ART: de 
este modo podrás hacer una foto de un 
clip art con un comentario al pie. La 
operación de toma de foto es reab 
mente sencilla: tomas del menú un in- 
dicador que te permitirá crear una 
caja que indica la zona que vas a fo- 
tografiar — lleva el cursor al icono del 
aparato de fotos, y pulsa el disparador 
del joystick. Vaya con el programa, ¡si 
hasta hay un destello del FLASH! 

Una vez realizada tan cuidadosa 



operación puedes almacenar tu foto, a 
la que evidentemente podrás haber 
hecho los retoques que mencionamos 
antes. De hecho, si pretendes crear 
una página completa de revista lo me- 
jor es que hayas seleccionado previa- 
mente la lista de dibujos que aparecen 
en las instrucciones, ya que tras haber 
hecho las fotos correspondientes a 
toda la página, y almacenarlas, puedes 
ir corriendo al menú principal a cargar 
ta opción de COPY DESK en la que 
deberás, con ayuda de un procesador 
de texto, escribir el texto fruto de tus 
inspiraciones. 

El procesacior tiene las mínimas y 
más necesarias funciones: inserción de 
línea, búsqueda de palabras, mayús- 
culas, copia y desplazamiento de seg- 
mentos de texto así como posiciona- 
miento muy exacto del texto. 

En cualquier caso sigues dispo- 
niendo del menú de letras al que ha- 
cíamos referencia en la opción de Ban- 
ner, pero que serán más pequeñas una 
vez impresas en esta opción. 

Una vez escrito el texto llega el mo- 
mento de posicionar la foto: cógela 
con la mano, llévala al PANEL, 
prueba a ver qué tal queda en la parte 
derecha del panel, «¡NO... mejor a la 
izquierda!». Pincha de nuevo la mano, 
llévala a la izquierda y valida tu elec- 
ción, y sobre todo no te preocupes por 
el texto: este programa es muy listo y 
se formateará automáticamente en 
función de la nueva situación de la 
hoja. ¡Increíble! Podrás hacer varias 




pruebas hasta estar convencido de 
cómo queda la hoja. 

Una vez acabada de colocar la foto 
ya está listo tu primer panel: «CON- 
GR ATU L ATIONS! ! » , como dirían' 
los ingleses. Ya ves que no era tan di- 
fícil crear tu primera página de revista. 

Haz así con seis, ocho o bien 10 pa- 
neles más, según la longitud de hoja 
de que dispones. Llega entonces el 
momento de ir a la opción LAYOUT 
del menú principal. Aquí deberás 
componer la página y asignar a cada 
segmento de la hoja su PANNEL. 

Tras haber compuesto: almacena la 
hoja por fin acabada. 

En principio quedarían aquí las co- 
sas si no hubiese otra opción: la de 
WIRE SERVICE realmente curiosa 
en este tipo de programas: un pro- 
grama de manejo de modems que te 
permitirá transmitir tus noticias al 
mundo entero. Aquí te aparecerá un 
menú completo de SETUP de MO- 
DEMS, orden de transmisión, y de re- 
cepción de datos. 

Otro de los menús que no se pueden 
dejar de comentar es el de impresión, 
en el que es de resaltar la más fabulosa 
lista de opciones de impresoras jamás 
vista por ojos humanos en estos pa- 
rajes: incluye desde las típicas STAR, 
EPSON, etc., hasta las más desco- 
nocidas PANASONIC y las más pe- 
queñas de la NEC, CANON, etc., 
realmente impresionante. 

Por si ya fuera poco, el programa in- 
cluye un menú muy importante titu- 
lado: «¡CÓMO CREAR UN NEWS 
PAPER!» 

Viendo esto uno no puede hacer 
menos que inclinarse ante esta mini- 
guía de cómo convertirse en un editor. 
Viene explicado desde aspectos tan 
importantes como: «ORGANIZAR el 
STAFF: editor, reporteros, coopera- 
dores, correctores, etc., hasta el dis- 
tribuidor...» CÓMO ENCONTRAR 
temas «...», CRITERIOS DE SE- 
LECCIÓN DE SECCIONES «...», 
CÓMO HACER ENTREVISTAS 
«...», CÓMO ORGANIZAR LAS 
NOTICIAS EN LAS PÁGTNAS, 
etc. Realmente si alguno permanece 
insensible ante 'estas maravillas ya 
puede tirar la impresora, o bien es que 
no la tiene claro. 
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SOFTACTUALIDAD 



SHERLOCK HOLMES 

Vaya con Sherlock Holmes, hay que 
ver qué energía: tras la aventura que 
pasó hace poco vuelve a las andadas 
con el equipo de IMAGIC que acaba 
de lanzar otra que sin duda hará las 
delicias de aquellos a los que la 
primera se les quedó un poco 
pequeña. Esta vez Sherlock acaba en 
tierras de la Tndia y ha de investigar 
unos misteriosos asesinatos con 
flechas envenenadas, encantadores 
de serpientes y todo el panorama de 
aquellas misteriosas tierras. 



entrenamiento te será muy sencillo 
(haciéndolos muy debiluchos). 
Verás más adelante que la inmensa 
variedad de oponentes, cada uno con 
un determinado nivel de juego, hace 
de este juego una auténtica 
maravilla. 

FLEXIDRAW REFORMED 

FLEXIDRAW ha sido siempre el 
rey de los programas que manejan 
lápiz óptico y drive: desde hace tres 
años van saliendo revisiones 
periódicas cada seis meses. Esta vez 




UfH*i 
Dest 

wh i l 
acM) 

rsipp 

US, 

ifl h 
door 



Save f or General Ryan's drunken 
easantness, cruísing aboard -the 
iny was iovalj/j the skies sunny at 
and sprinkled with stars at eytning, 
sx -the noon left a trail of Ufht 
ss the noody black sea, 
It was on the second nxght that a 
ing upon our stateroon door awakened 
I was certa in it was three in the 
ing, for I heard six bells . HoImijs, 
is grey dressing gown, opened the 

•'«Could you cofie quick; Sir?" a crew- 

— PRESS ftNY KE¥ TO CONTINUE-- 



CHAMPIONSHIP BOXING 

Esta nueva versión de boxeo 
contempla una gran variedad de 
contrincantes: incluso cabe el juego 
contra un canguro. 
Puedes crear parte de las 
características de tus contrincantes y 
por ¡o tanto en un principio el 




se incluyen en los tres discos un 
editor de música y otro de sprites 
con animación. Este innovador 
programa de «dibujo flexible 
reformado» constituye, sin ninguna 
duda, una 
herramienta 
ideal para los 
programadores y 
diseñadores. 
Es preciso saber 
que solamente se 
puede manejar 
desde lápiz óptico. 



PEEK A BYTE 

PEEK A BYTE es el último editor 
de disco. Recién salido en el 
mercado americano supone un 
avance considerable con respecto a 
los anteriores: por primera vez se 
oye hablar en este género de editores 
de «INTELIGENCIA». En efecto, si 
traduces un texto y colocas un texto 
de mayor tamaño que el original, 
PEEK A BYTE actuará a modo de 
editor de texto y desplazará el resto 
del texto reorganizando el BAM y 
concatenando las pistas. 

TOUTAIMKAMON 

Toutankamon es la última creación 
de Systems ELEVEN. Un juego de 
pantallas de tipo Aventuras de SIR 
ARTHUR PENDRAGON. Según la 
publicidad, hay miles de pantallas 
dentro de los laberintos de la tumba 
de un FARAON en una pirámide 
cuya complejidad subyugará a 
arqueólogos, egiptólogos y 
empedernidos aficionados a los 
juegos de salas. 

BLAZING PADDLES 2000 

BLAZING PADDLES fue durante 
mucho tiempo uno de los mejores 
programas de dibujo de nuestro 
micro hasta que salió Doddle. v tras 
el PROFI PAINTER. luego THE 
ARTIST, etc.. Está claro que la 
casa BAUDVILLE, autora de esta 
joya, no se resignó a perder 
mercado: el resultado de su trabajo 
lo tenemos aquí: una ampliación de 
posibilidades considerable, un juego 
de 40 fonts (letras) en diferentes 
tamaños. 
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SHORT CIRCUIT 

• OCEAN ■ PERSECUCION DE ROBOT 

Continuando con la saga de juegos 
de tipo peliculero llega SHORT 
CIRCUIT (Cortocircuito). 
La película se constituyó en un 
auténtico éxito, sobre todo entre el 
público juvenil, cuando se estrenó, 
durante las pasadas fiestas navideñas, 
en toda España. Su director enHfohn 
Badham, que no hace mucho tiempo 
nos impacto con su notable Juegos de 
guerra, que incursionaba a fondo 
también en el tema de la informática 
al contarnos lo que podía pasar 
cuando un hacker se introduce en un 
ordenador central del Pentágono. 
Para los que no han visto 
Cortocircuito, se trata de lo que le 
sucede a un robot de uso militar muy 
peligroso, un día, Iras una 
demostración. 

Una descarga de electricidad le hace 
cobrar la razón ¡¡y le da vida!! 
A partir de ese momento se trata 
simplemente de salir de la factoría en 
la que se halla (NOVA 
INDUSTRIES) y lograr esconderse 
para que le dejen tranquilo. 
En la primera fase del juego deberás 
huir del recinto industrial sin olvidar 
recoger antes; software y hardware 
para activar tu potente láser, así 
como un mecanismo para poder 
saltar. 

En la película el robot se esconde 
dentro de un camión que recoge 
basura para pasar los controles y 
poder así huir de NOVA. 
Tu robot dispone, sin embargo, de 
menos movilidad que en la película 
real: deberás buscar los objetos 
mencionados y para ello deberás 
colocarte frente a ellos y activar en 
la pantalla que aparece en la parte 





inferior derecha el comando 
SEARCH. 

Si lo que quieres es manipular un 
objeto selecciona la opción 
UTILICE, verás que el robot puede 
realizar diversas acciones. 
¡OJO! porque el Número 5 está 
perseguido por innumerables 
enemigos: los otros robots de la serie 
SAINT han sido reprogramados para 
desactivarlo, las fuerzas de seguridad 
tienen orden de destruirle sin 
compasión. Los que ya han visto la 
película saben que el único modo de 
salvarse es construyendo un robot de 
similares características que haga de 
señuelo para que las fuerzas de 
seguridad lo machaquen y crean así 
haber acabado con el peligro. 



El juego resulta simpático y está 
construido sobre una base gráfica 
similar a la de LOS VISITANTES. 
En resumen: CORTOCIRCUITO se 
inscribe con méritos propios, en la ya 
larga lista de programas inspirados 
en éxitos cinematográficos. 
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SILEIMT SERVICE 

• US. GOLD ■ GUERRA SUBMARINA 

SERVICIO SILENCIOSO es el 
nombre que fue dado en Estados 
Unidos al departamento que se 
encargaba de coordinar a los 
submarinos que tomaron parte activa 
en la Segunda Guerra Mundial. 
Servicio Silencioso tuvo su mayor 
desarrollo frente a las costas 
japonesas y su misión era atacar toda] 
la marina imperial y neutralizar la 
marina mercante japonesa. 
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Como juego de simulación dispones 
de una serie de niveles de dificultad 
(aquí llamado de realidad) que hacen 
las misiones más difíciles y realistas. 
El juego incorpora tres tipos de 
opciones de juego: PRÁCTICAS de 
TORPEDO / CAÑÓN, ACCIONES 
DE CONVOY, y, por último, 
PATRULLAS DE GUERRA. 
Los niveles de dificultad son cuatro y 
te ponen en los diferentes papeles de 
los puestos de responsabilidad. 
El programa cuenta, además, con 
una serie de niveles de realidad que 
se pueden alterar. Así, la visibilidad 
limitada hará que los barcos fuera 
del alcance del sonar no aparezcan 
en tu mapa. Otro de los factores que 
dotan al juego de un mayor realismo 
es el de los convoys que hacen 
zigzags o bien torpedos defectuosos, 
que no estallarán al hacer blanco... 
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los niveles de dificultad afectan 
también a las acciones de los 
destructores enemigos y a su 
destreza. 

La pantalla de juego una vez 
definidos estos caracteres se presenta 
como la cabina de mando de un 
auténtico submarino: con el ¡OYSiick 
podrás subir a la torreta. hacer 
inmersión, consultar el diario, 
examinar los diales de los que 
hablaremos más adelante, etc., 
cabe también la opción de examinar 
los mapas de rutas. Cada acción 
realizada desde el joystkk hará 
aparecer una nueva pantalla: la de 
daños del submarino o la del 
periscopio en la que deberás 
identificar a tus enemigos según el 
perfil que tengan sus naves: el juego 
incluye 17 posibilidades diferentes de 
naves que identifican antes de 



disparar los torpedos. 
Otra de las pantallas más 
importantes es sin duda la del 
mecánico de la nave: el nivel de la 
batería, velocidad, rumbo, 
profundidad, indicador de periscopio 
de torpedos dispuestos, de 
combustible, etc.. En la pantalla de 
daños del buque verás cómo aparece 
un mapa super detallado de la nave y 
de los daños causados. 
El manual de instrucciones es 
soberbio por la profundidad que 
alcanza detallando estrategias de 
ataque así como de defensa y modos 
de salir de situaciones embarazosas. 
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MICRO RYTHM 

• US. GOLD ■ MUSICA 

Los ordenadores ya ocupan un lugar 
propio en el campo de la música 
profesional. 

Es sabido que los músicos modernos 
están utilizando cada vez más el 
enorme potencial de sus 
instrumentos basados en 
microprocesadores para producir, en 
vivo, la misma variedad de sonidos 
para la que hace veinte años se 
hubiera necesitado una orquesta 
completa. Es decir, sonidos 
producidos tradicionalmente por los 
instrumentos de cuerda, madera, 
metal y percusión. Hablemos de 
estos últimos. 

MICRO RYTHM es un programa 
único en su género, ya que a partir 
de ahora podrás disfrutar de una 
batería digna del mejor grupo de 
ROCK por el módico precio de 475 
ptas. 

Mientras cargas el juego, el 
programa, a diferencia de los 
programas normales del comercio, 
no hace ningún ruido, ninguna 
música, probablemente porque el 
programador ha querido hacer mayor 
el contraste entre el antes de cargar 
y después. 

Una vez cargado aparece una 




simpática pantalla que te llevará al 
menú de opciones de la caja de 
ritmos. MICRO RYTHM dispone de 
tres modos de trabajo: modo de 
composición, modo compás y por 
último, modo tiempo real. 
Quizá la más entretenida en un 
primer momento sea la de tiempo 
real en la que todo lo que vayas 
tocando va saliendo en pantalla. 
El modo de tocar es realmente 
asequible: basta pulsar una serie de 
teclas. O es el bombo, W tambor, 
están casi todos presentes, desde 
los platillos altos, bajos, cerrados, 
hasta la pandereta pasando, incluso, 



por el gong y las palmas. 
En modo tiempo real la pantalla se 
te habrá quedado oscura 
probablemente porque así el 
procesador puede ir más rápido. 
Si pasas ahora al modo compás verás 
que el sonido de un metrónomo te 
ayuda a no perderte. Ve añadiendo a 
los ritmos que vayas creando nuevas 
tonalidades, nuevos sonidos, etc.. 
En la última opción verás una línea 
en la pantalla que te indicará cuáles 
son los compases que has usado y 
cuáles son los segmentos que están 
vacíos de todo sonido... Realmente 
un programa excepcional para los 
amantes de los efectos sonoros, para 
ios que sientan inquietudes por la 
parte musical del ordenador o bien 
para quienes quieran hacer usos 
extremos de esta caja de ritmos: por 
ejemplo, hacer de puente entre 
mezclas de grabaciones. 
En resumidas cuentas, gracias a este 
destacado programa tendrás la 
ocasión de rivalizar con los ya 
legendarios baterías Ringo Star y 
Charlie Watts. 
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ACE OF AGES 

• ACCOLADE ■ SIMULADOR BELICO 

ACE OF ACES es un remake del 
celebérrimo DAM BUSTERS. Pero 
esta vez está realizado por la casa 
Accolade, que todos conocéis por el 
cuidado en la calidad gráfica y el 



único que podrás hacer es caer en 
picado sin paracaídas. 
Caben tres tipos de misiones: aire, 
tierra (ataque a convoys de barcos) y 
ataque a trenes. 

Elige la que más rabia te dé y verás 
en pantalla en seguida un informe de 
la INTELIGENCIA MILITAR, que 



presencia con la mayor urgencia. En 

ayudante verás otra 
serie de controles: la fuerza de los 
flags, las RPM, volumen de gasoil, 
depósitos derecho e izquierdo y, 
colmo del detalle, hasta un extintor. 
Cualquier desvío de la ruta lo podrás 
observar puntualmente en el mapa. 
En cualquier caso, cuando llegues a 




realismo de la animación de sus 
productos. 

Al igual que en el juego anterior, la 
acción se desarrolla en la Segunda 
Guerra Mundial, aunque esta vez el 
objetivo no es el mismo que en el 
caso anterior. Sin embargo, la forma 
de cambiar la posición del punto de 
vista desde dentro del avión ha sido 
respetada: 1 = Piloto, 2 = Vista 
derecha, 3 = Vista izquierda, 
4 = Mecánico de vuelo, 6 = Mapa. 
A pesar de todo, el juego ofrece dos 
opciones bien diferentes: por una 
parte misiones de vuelo y por otra 
prácticas. Te recomendamos que 
empieces por éstas. 
Considérate aprobado cuando seas 
capaz de volver intacto a la base. 
Pero mientras tanto allí van una serie 
de consejos obvios en algunos casos 
pero que causan el 75 % de los 
accidentes de avión en el Ace of Aces: 
ojo con las municiones y el 
combustible. 

Mientras lo primero sucede en 
cuanto pases los primeros momentos 
de apuro, y dispares sin apuntar 
demasiado, corriendo así el riesgo de 
quedarte en el aire colgado entre una 
multitud de enemigos. Lo segundo 
pasará cuando te descuides y lo 
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te dará una puntual información de 
las condiciones atmosféricas, las 
dificultades que puedan surgir, el 
armamento, municiones y ruta más 
seguros aparecerán en pantalla. 
Aun así el juego te dará opción para 
cargar las municiones que estimes 
oportunas: no te serán nada 
necesarias bombas para raicis aéreos 
como no sea que pretendas 
bombardear aviones en el aire. 
Una serie de indicadores te harán la 
vida más sencilla. Desde la cabina 
del piloto verás la velocidad del 
viento, la palanca o timón, un radar 
combinado con un indicador de 
altitud del enemigo. Aquí, dando un 
par de toques a derecha o izquierda 
de la palanca, verás aparecer en 
pantalla los puntos de vista que 
tendrías mirando a ambos lados de 
aparato en el aire: 
verás las hélices 
dando vueltas entre 
las nubes (realizado 
de forma magistral). 
En la parte inferior 
izquierda un icono de 
avión representa las 
zonas en las que 
existen problemas o 
bien las zonas en las 
que se requiere tu 



tu punto de destino deberás ir al 
puesto de artificiero y desde allí abrir 
las compuertas de las bombas. 
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10TH FRAME 

• ACCESS ■ JUEGO DE BOLOS 

ÍOTH FRAME es un simulador de 
los juegos de bolos, producido por 
ACCESS, la casa harto celebre por 
los BEACII HHAD, LEADER 
BOARD, etcétera. 
Antes de referirnos a esta versión in- 
formatizada de este popular juego te 
ilustraremos — o recordaremos — su 
historia y fundamentos. 
Los bolos es el deporte de cancha ce- 
rrada que más aficionados cuenta en 
Estados Unidos. Fue introducido pol- 
los holandeses en la isla de Manhat- 
tan (Nueva York) en 1623. Sus nor- 
mas se dictaron en 1895. 
En este deporte el jugador lanza una 
bola hacia un grupo de diez bolos 
dispuestos en triángulo, con objeto 
de derribar el mayor número posible 
de ellos. 

Los bolos se disponen al final de un 
pasillo. A ambos lados de la pista 
existen unos canales para recoger las 
bolas que se desvían. Se juega con 
bolas de madera de guayaco, con dos 
o fres agujeros para introducir los 
dedos. El strike, la mejor jugada, 
consiste en derribar todos los bolos 
al primer golpe. El score máximo es 
de 300 tantos. Gana la partida el ju- 
gador que haya conseguido mayor 
tanteo. 



10TH FRAME 
ofrece la posibilidad 
de participar en un 
OPEN DOMÉS- 
TICO DE BOW- 
LING. incluyendo 
hasta 8 jugadores y 
hacer liguillas 
creando equipos en- 
tre los jugadores. 
Hay tres niveles de 
dificultad que van 
desde el KIDS (ni- 
ños) hasta profesio- 
nal, pasando por 
amateur. El juego 
es muy sencillo: 
cada jugador tiene 
ante sí una marca 
que le ayuda a se- 
leccionar el ángulo 
de tiro. El otro pa- 
rámetro es la posi- 
ción que cada juga- 
dor tiene con res- 
pecto a la pista. 
El juego se com- 
plica enormemente cuando 
aparecen los efectos (llamados 
aquí tiro de gancho) y el modo 
de obtenerlo que es harto difí- 
cil. 

El juego decepciona un poco, 
ya que sólo hay una pantalla de 
juego y la animación no es la 
que nos tiene acostumbrados la 
casa. 
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ACROJET 

• US. GOLD ■ VUELO ACROBATICO 

ACROJET es un simulador de vuelo 
acrobático en JET. De ahí la palabra 
Acrojet. 

AI tratarse de un simulador de vuelo 
acrobático se desarrolla como una 
serie de concursos de diferente nivel. 
Puedes elegir entre el 
DECATHLON, PENTH LATON o 
bien una sola prueba. 
Antes de que participes en las 
pruebas quizá sea mejor que te hagas 
con los controles del avión. Toma el 
joystick^ muévelo y verás cómo 
ACROJET es un AVIÓN que 
responde en parte a movimientos de 
palanca muy suaves pero rápidos. 
La palanca hace las veces del mango 
del avión (hacia delante = abajo; de- 
recha e izquierda provocan fuertes 
virajes); como en. otros simuladores 
puedes disponer de otros puntos de 
vista, dando a una serie de teclas; 
dispones asimismo de acelerador, 
frenos de tren de aterrizaje, frenos 
cié velocidad (para cuando estás en el 
aire), flags, etc.. Otra serie de con- 
troles te informarán sobre la poten- 
cia y fuerza de tu avión, Flaps, indi- 
cador de rumbo, altímetro, etc., 
poniendo a tu disposición todos los 
clásicos instrumentos de navegación 
aérea que debería controlar un au- 
téntico piloto. 

Las diferentes competiciones 
incluyen una serie de pruebas 
dotadas de coeficientes de dificultad 
que van desde 1.0 hasta 2.0 
(aterrizaje en planeo), que serán 
puntuadas por jueces imposibles de 
engatusar. 




Gran parte del atractivo de este 
programa reside en el tutorial que 
incluye sobre modos de pilotaje, 
acrobacias que se hicieron famosas 
en la época de los grandes pioneros 
de la aviación (a principios de siglo), 
en la era «romántica» de este 
apasionante medio de transporte (en 
el periodo que medió entre las dos 
últimas guerras mundiales: 1918- 
1.939), en la Segunda Guerra 
Mundial, etc. Con mapas para que 
las intentes realizar en casa sin 
peligros para tu salud. Y un 
divertido diccionario del argot de los 
pdotos que hará que pronto tomes 
interés por la materia. 
La documentación es soberbia y los 
ejercicios van en dificultad creciente, 
haciendo que el programa sea de 
mucha más rápida asimilación que la 



mayoría de los juegos de simulación. 
Con que ya lo sabes: éste es tu pro- 
grama si quieres convertirte en un 
émulo del norteamericano Charles 
Lindbergh, los españoles Jiménez e 
Iglesias u otros ases de la historia de 
la aviación que con sus hazañas mar- 
caron hitos en la apasionante trayec- 
toria de este medio de transporte en 
el presente siglo. 
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Cambio programas para C-64 en cinta 
como: Simon's Basic, Infiltrator, Uri- 
dium, Commando, Antiriad... por pro- 
gramas como Gamemarquer, Logo, Si- 
mon's Basic II, Gauntlet... etc. Enviar 
lista a: D. Almagro. Plaza Guillemó, 4, 
4. "-1. a Andorra ¡a Vieja. Principado de 
Andorra. 



Cambiamos programas en cinta para C- 
64. Tenemos las últimas novedades en 
juegos y utilidades para commodoria- 
nos. Fernando Francés Gil. C/ Gomis, 
14. Ontinyent. Valencia. TI.: 96- 
248 30 19. 



Intercambio juegos para C-64. Poseo 
más de 800 programas, novedades. 
Jorge Peña. Avda. Paralelo, 114, 5.°-2. a 
dren. Barcelona 08015. 



Vendo Commodore Plus/4 casi nueva e 
incluyo manuales de programación y 
funcionamiento de los programas in- 
tegrados; Base de datos, Tratamiento 
de textos, Hoja electrónica y Gráficos. 
Perfecto estado por sólo 15.000 ptas. 
Además compro COMMODORE 64 en 
buen estado y funcionamiento. Estaría 
dispuesto a ofrecer entre 10.000 y 
15.000 ptas. Compraría unidad de disco 
1541 por la cual pagaría entre 15.000 y 
18.000 ptas. Sólo provincia de Barce- 
lona. Carlos Felipe Spada. C/ Rosellón, 
290. Barcelona 08037. TI.: 257 75 51. 



Compro cartucho Simon's Basic o lo 
cambio por juegos (discos) como 
Rock'n Wrestle, Law of the West, Bun- 
geling Bay, Ghosts'n Goblins. M. A. 
Moreno. Vía G. Mameli, 2A/19. 16122 
Genova. Italia. TI.: 010-88 34 41. 



Intercambio todo tipo de programas 
para el C-64. Poseo bastantes noveda- 
des. Feo. Javier Antúnez Gallego. R./ 
Castillo, 85, 3.°-2. a Vilanova i la Geltrú. 
08800 Barcelona. 



El ZOCO 

Compro unidad de disco o puedo ofre- 
cer a cambio un lote de programas va- 
lorado en 13.000 ptas. También me in- 
teresan la Impresora o monitor color de 
cualquier periférico para CBM-64. 
CAMBIO CBM-64 por CBM-128 pa- 
gando la diferencia y regalo progra- 
mas. Intercambio software para CBM, 
tengo todas o casi todas las últimas no- 
vedades. Feo. Javier Bernal. C/ Eche- 
garay, 1. Cantalejo. Segovia. TI.: 911- 
52 04 04. 



Vendo impresora SEIKOSHA GP-700 
VC (de color); comprada en Navidades 
del 85. Está como nueva. Precio a con- 
venir. Borja Martínez. C/ Fernando Agu- 
llo, 14. Barcelona 08021. 



Intercambio programas para C-64. Pro- 
meto contestar, mandar lista. José 
Bueno Galián. C/ Dr. Soler, 9. 30730 San 
Javier. Murcia. 



Intercambio o vendo programas para el 
C-64. Poseo más de 100 programas. En- 
viaré listado a toda persona que es- 
criba. Carmen Cotte. San Patricio Plaza 
P. M. C. Box 78. San Juan. Puerto Rico 
00920. U.S.A. 



Cambio programas: Summer Games II, 
Beam Rider, Rambo, Kung-Fu Master, 
Misión Imposible, etc. y 62 programas 
de este tipo con instrucciones por uni- 
dad de discos 1540, 1541 o 1571 en per- 
fecto estado. Pso. de la Montaña, 141, 
ático-2.° Granollers 08032. Barcelona. 
TI.: 93-870 61 59. 



Intercambio programas en cinta para el 
C-64. Alberto Marote Liébana. C/ de la 
Fe, 4, 2?A. 3 17300 Blanes. Gerona. 



Vendo por cambio a equipo mayor: 
Unidad de Disco modelo 1541 con pro- 
gramas de regalo: 39.000 ptas. Impre- 
sora Riterman C + sistema N<Q y ma- 
nuales: 52.000 ptas. The Final Cartridge 
(cartucho utilidades): 7.000 ptas. Inter- 
face para copias cassette: 2.000 ptas. 
Además poseo numerosos,discos y cin- 
tas con toda clase de utilidades y jue- 
gos. Jaime Rovira Matías. Avda. Cata- 
lunya, 133, 1.°-2. a Parets del Valles. Bar- 
celona. TI.: 562 09 85. 



Intercambio, vendo o compro juegos 
para C-64. Preguntar por Iñakí. TI.: 948- 
82 15 73 o 82 24 13. 



Vendo interfaces copiadores de com- 
pleta seguridad (tengo 10). Daría 600 
programas por unidad de disco 1541 o 
por Impresora; 200 programas por Da- 
tassette y 150 por lápiz óptico o sinte- 
tizador de voz. Llamar a partir de las 21 
h. José Julio García. TI.: 91-895 32 54. 



Intercambio juegos y utilidades en 
cinta para C-64. Poseo unos 600 títulos 
(Ghosts'n Goblins, Bomb Jack, Asterix, 
Summers Games I); escríbeme y pro- 
meto contestar. José Jiménez Jiménez. 
C/ Joan Maragall, 5. Santpedor. Barce- 
lona. 

Intercambio programas en cinta para 
C-64. No importa que tengas pocos. 
Prometo contestar. David Jou Sala. C/ 
Lérida, 39, bajos. 08004 Barcelona. 

Cambio curso de introducción al BASIC 
para C-64 y una cinta con programas 
valorados en 8.000 ptas. por cartucho 
SIMON'S BASIC con instrucciones. 
También desearía formar parte de un 
club de usuarios del C-64 en Alcorcón. 
Escribir: J. José Pulido Labrador. Plaza 
Ondorreta, 5, 2.°A. Alcorcón. Madrid. 

Desearía contactar con gente que tu- 
viese los programas de E.G.B. Santi- 
Nana del curso 8.° Los cambiaría por: 
Cobra, Leaderboard, C. Warriors, 
PaperBoy, etc. Israel Jodar. C/ Padrón, 
2, 7.°C, esc. ¡zqda. S. José de Valderas. 
Alcorcón. Madrid. TI.: 91-619 22 27. 



Tengo el C-64 y me compré dos juegos 
con las instrucciones en inglés (en Gi- 
braltar). Solicito instrucciones de: Mi- 
sión Imposible y Dragon's Lair. Pagaré 
las fotocopias. Antonio Benítez Bu- 
rraco. San Nicolás, 9, 2.°A. 11207 Al- 
geciras. TI.: 956-60 23 17. 

Intercambio programas en cinta para el 
C-64, poseo juegos como: Rambo, 
Miami Vice, Green Beret, Winter Ga- 
mes y los 3 Strip poker entre otros. 
Diego Hernán Aldonza. C/ Juan XXIII, 
75-Cuatrovientos. Ponferrada. León. 
Tí.: 987-41 46 08. 



Intercambio programas de juegos ori- 
ginales para el C-64, como: Uridium, 
Boulder Desh, Zorro... etc., los cambio 
por Summer Games I, II, Fist II o Winter 
Games. También intercambio juegos y 
utilidades en turbo, con carga principal 
de Turbo V-3 o Turbo Tape, como: 
Broad Street, Breakdance... etc., en to- 
tal dispongo de 20 programas origina- 
les y 40 programas turbo. Todo ello 
también lo vendo por 20.000 ptas. Ro- 
drigo Pérez Sánchez. C/ Poeta Gerardo 
Diego, 1, 4.°A. TI.: 942-33 08 58. San- 
tander. Cantabria 39011. 



Vendo lote de discos con utilidades y 
juegos para C-64, a buen precio. Víctor 
García Romero. Avda. de América, 14. 
28028 Madrid. 



Intercambio todo tipo de programas en 
FLOPPY o CASSETTE. Xavier Hernán- 
dez Solé. C/ El Roser, 34. 43770 Mora de 
la Nova. Tarragona. TI.: 977-40 10 84. 



EL ZOCO 



Cambiamos juegos e información ; más 
de 400 juegos. Somos un grupo de ami- 
gos con Commodore. Llamar ti.: 
671 34 23. 



Vendo ordenador Dragón 64, monitor 
de fósforo verde, un joystick, 40 juegos, 
un cassette, etc. Precio a convenir. Lla- 
mar a Miguel López. Teléfono 
398 10 39, Barcelona (de 2 a 4 de la 
tarde). 

Intercambio juegos y utilidades para el 
C-64. Poseo alrededor de 200 y todos 
son buenos. Mandar lista, prometo 
contestar antes de una semana. Fran- 
cisco Javier Gil. Plaza del Ejército, 6, 
9.°-2. a Lérida 25002. Llamar al teléfono: 
973-26 17 49. 



Intercambio juegos para el Commo- 
dore. Poseo: Dustin, Gaunlet, Ento- 
bed... etc., también compro y vendo 
juegos. ¡Ah!, y a quien tenga mapas de 
juegos complicados o le interese tener- 
los puede llamar al ti.: 91-891 21 19. 
José Luis Gonzalo. C/ Goya, 13.^28300 
Aranjuez. Madrid. 

Intercambio programas en disco para 
el G-64. Escribir: José Racero Ramírez. 
C/ Ingeniero Aubans, 23, 6.° 46035 Be- 
nimamet. Valencia. 



Vendo cartucho ESCRITOR VI. (Tra- 
tamiento de textos en castellano para el 
C-64) y seikosha SP-800, instrucciones. 
José A. Larumbe Aragón. C/ Rucabado, 
14, 4.°E. Castro Urdíales. 39700 Canta- 
bria. TI.: 941-86 04 96. 



Cílveti, 5, 2.° izqda. 31011 Pamplona. 
Navarra. TI.: 948-25 86 06. 



Intercambio juegos para el C-64. Escri- 
bir: Jorge Arias Carrera. C/ Río Val- 
caree, 1, 5.°B. Ponferrada. 24400 León. 



Vendo juegos para el Commodore, 
HyperSports y Green Beret en sus cin- 
tas originales a 600 ptas. c/u y 1 .000 los 
dos. Antoni Torrens. C/ Urgel, 97, pral. 
2." Barcelona 0801 1 . TI. : 93-323 41 98. 



Intercambio programas para el C-64. 
También querría vender paddles, sin 
usar. Xavier Puig. Ctra. a BAGA, 30. 
Guardiola de B. 08694. Barcelona. 



Cambio juegos para el C-64 de calidad, 
como: Infiltrator, Goonies, Uridium, 
Green Beret, etc. También desearía for- 
mar parte de un Club en La Coruña. 
Carlos Vázquez Veiga. Avda. de los Caí- 
dos, 26, 2° dreha. 15009 La Coruña. TI.: 
28 21 05. 



Vendo o cambio juegos, tales como: 
Paperboy, 1942, Galvan, C. Warriors, 
etc. Sergio Villanueva Rodríguez. C/ M.° 



Intercambio programas para el C-64. 
Poseo más de 1.200. Uso cassette. Se- 
bastián Gil Villanueva. C/ Maldonado, 
28. Los Barrios. 11370 Cádiz. 

Intercambio juegos y utilidades para el 
C-64. Tengo más de 100 programas de 
buena calidad. Llamad al 96-238 51 97. 
Miquel Martí. Avda. Cristóbal Colón, 3. 
Ontinyent. Valencia. 

Vendo C-64 con cassette, joystick 
(Spectravídeo) y colección de juegos y 
programas de aplicación con sus res- 
pectivos manuales, todo en perfecto 
estado. VENDO Impresora Riteman 
C+(NLQ). Precios a convenir. Jordi 
Manyer Cubería. P.° de Sant Joan, 111, 
6. D -2. a 08037 Barcelona. TI.: 93- 
257 54 58. 



Vendo ordenador Einstein 80 K de RAM 
(ampliables). Se incluye: monitor fós- 
foro verde, impresora y programas de 
contabilidad, base de datos, trata- 
miento de textos, Multiplan. Precio a 
convenir. Ruego llamar a los teléfonos 
9T- 248 41 47-248 40 54 (Madrid). Pre- 
guntar por Óscar. 



^XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXNX^^ 

¡ Suscríbase ahora a * 



PRECIO DE CUBIERTA PTAS. 375 

MENOS: 20 % de descuento al suscriptor Ptas. 75 

USTED PAGA SOLO PTAS. 300 (por ejemplar) 

SUSCRIPCION ANUAL 12 EJEMPLARES 4.500 Ptas. 
(900 Ptas), USTED PAGA SOLO 3.600 Ptas 
(entrega a domicilio gratis) 



commodore 



INPUT le proporciona 

INFORMACION... DIVERSION... FORMACION., 
(un curso completo de programación)... 




de** 



yo* 




...LA POSIBILIDAD DE MEJORAR 
SU NIVEL PROFESIONAL... 
EL NIVEL DE LOS ESTUDIOS... 



e la informática- 
con facilidad- 



Recorte y envíe este cupón 

de inmediato a EDISA, López de Hoyos, 141 

28002 Madrid, o bien llámenos 

al Telf. (91) 415 97 12 



'/ xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxv 



INPUT 



BOLETIN DE SUSCRIPCION 



Si T envíeme ENPUT COMODORE durante 1 año (12 ejemplares), al precio especia] de oferta de 3.600 Ptas. AHORRANDOME 
900 Ptas. sobre el precio normal de portada de 12 ejemplares sueltos. (Por favor, cumplimente este boletín con sus datos personales e , , 
índfquenos con una (X) la forma de pago por usted elegida, métalo en un sobre y deposítelo en el buzón más próximo). 



DOMICILIO 1 I I J I I 3 I l i 

POBLACION L_ 
PROFESION l_ 



-J I I I I L_ 



J I I I I APELLIDOS I J I I I I I 

J I J I HUM I 1 1 J PISO L I i ESCALERA 

_l PROVINCIA I I I I I I I I I I I 1 I 



FORMA DE PAGO ELEGIDA: Reembolso □ Dominación Barcaria □ 

Talón nominativo que adjunto a favor de EDISA LJ 

I INSTRUCCIONES DE DGMICILIACION B ANGARIA (si es elegida por usted) 



Muy señores míos: 

Les ruego que, con cargo a mí cuenta n.° 

Editorial PLANETA-AGOSTIN1 a nombre de 

L I I l__l i I BANCQ'C de AHORROS L 

I I I I I I 1 I DIRECCION I l l l 



de_ 



-de 19_ 



i i i i i i i i 



I I TELF. L I I 1 I I 1 I I 1 J y 

_„_| 

■ j i i i i i i i i i 

1 



i i ) I I I i_j I i i i i i i i i i i i_ 



_i i i i i_j i i i i_ 



_l I I I I I I I I I I I I I I L_ 



_J 1 I I I 




EN TIENDAS ESPECIALIZADAS Y GRANDES ALMACENES, O DIRECTAMENTE POR CORREO O TELEFONO A: PROEIN, SA 

>stribuido en Cataluña por. DISCOVERY INFORMATIC C/. Arco Iris, 75 - BARCELONA Tels 256 49 08 / 09 Velázquez. 10 28001 Madrid ■ TelS. [91 ) 276 22 08/09 






AMIGA ^ 



TARDAREMOS EN VER 
ALGO PARECIDO. 



En informática ya es difícil sorprender. 
Pues bien . Commodore lo ha conseguido 
con Amiga. 

Más que una nueva generación de orde- 
nadores, el Amiga d. Commodore repre- 
senta un nuevo concepto. Un ordenador 
que ofrece una serie de posibilidades y 
abre unos caminos que hasta hoy eran im- 
pensables. 

Entre las novedades de este ordenador 
profesional destacan: 1p posibilidad de tra- 
bajar con un procesador de 32 bits y de 3 
coprocesadores específicos, actuando los 
4 al tiempo. 

Además, Amiga dispone de pantallas y 
ventanas configurables con una resolución 
de 640 x 400 puntos escogiendo entre 



una paleta de 4.096 colores. 

Trabaja con 4 canales independientes 
polifónicos con voz masculina y femenina, 
y por si fuera poco , Amiga de Commodore 
es el único ordenador multitarea que puede 
efectuar varios trabajos simultáneamente. 

El precio también es importante. Por 
330.000 ptas. ex. IVA, el Amiga incluye: 

- Unidad central con 768 K RAM. 

- Monitor de alta resolución en color y so- 
nido. 

- Unidad de discos de 880 K. 

- Teclado profesional y ratón . 

Por mucho que avance la investigación 
en el campo de los ordenadores, tardare- 
mos en ver algo parecido. 



^^^^ 

commodore 

Imagina siempre lo mejor. 



Microelectrónica y Control , S. A. Unico representante de Commodore en España. 

el Valencia, 49-53 Tel. (93) 325 5702 08015 Barcelona - el Ardemans, 8 Tel. (91) 246 37 36 ■ 28028 Madrid 



m 



